Calc: leere Zellen automatisch befüllen

[fanders]

Erstmal Hallo allerseits,

leider funktioniert der Suchbegriff aktuell nicht, sodass ich ne doppelte Threaderstellung nicht ausschließen kann.

Wie bewerkstellige ich folgendes Problem? - Die Tabelle ist beispielhaft wie folgt aufgebaut:

Name Wohnort
BerndxxxxMünchen
xxxxKöln
GabixxxxErfurt
ThomasxxxxFrankfurt
xxxxNew York
xxxxBerlin
SvenxxxxBonn
SimonexxxxDortmund
JanxxxxHannover
xxxxParis
xxxxVenedig

Nun möchte ich, wenn immer die Zelle unterhalb vom Namen frei ist, derjenige allerdings mehrere Städte bewohnt, die jeweils untere(n) Zelle(n) automatisch mit dem Namen auffüllen lassen. Gibt es gute Tutorials, aus denen der Aufbau und die Funktion von Makros hervorgeht ? Leider habe ich kein Vorwissen.

Vielen Dank.



Moderation,4: verschoben in BASIC-Unterbereich; Betreff angepasst

[Karolus]

Hallo

Code: Alles auswählen

Sub fuelle_leerzellen_in_A
with thiscomponent.sheets(0) '1. Blatt
r = 1 'wir fangen in Zeile 2 an...
while .getcellbyposition( 1 , r).string <> "" 'und prüfen ob B? nicht leer ist
	
	if .getcellbyposition(0 ,r).string = "" then 'wenn A? leer ist...
                 '↓↓↓... wird A? mit dem Inhalt aus der Zelle obendrüber gefüllt ↓↓↓
		.getcellbyposition(0, r).string = .getcellbyposition(0, r-1).string
	end if	
	r = r +1 ' Der Zeilenindex wird hochgezählt, und zur 'while' -Zeile zurückgesprungen.
wend 'Hier gehts weiter wenn B? leer ist →Ende!
end with 
End Sub

Gruß Karo

[fanders]

Vielen Dank vorab ! Nach Speichern und Ausführen des Makros kommt es allerdings bislang zu keinem Ergebnis, weder Fehlermeldung noch Funktion. Welcher Part bestimmt des Festlegung auf Spalte A ?

[Karolus]

Hallo
Hinter "while" wird geprüft ob die Zelle in Spalte B '...byposition( 1 , r )...' nicht leer ist , bei der ersten leeren Zelle in B wird abgebrochen.

Ich hab oben im Code noch ein paar Erklärungen hinterlassen.

Gruß Karo

[fanders]

Geile Sache, funktioniert! Vielen Dank.

Einen Denkfehler habe ich wohl noch. Wie lautet die richtige Umstellung bei B leer und A gefüllt ?

Sub fuelle_leerzellen_in_B
with thiscomponent.sheets(0) '1. Blatt
r = 1
while .getcellbyposition( 2 , r).string <> ""

if .getcellbyposition(1 ,r).string = "" then
.getcellbyposition(1, r).string = .getcellbyposition(1, r-1).string
end if
r = r +1
wend
end with
End Sub

[Karolus]

Hallo

Wie lautet die richtige Umstellung bei B leer und A gefüllt ?

...
while .getcellbyposition( 0 , r).string <> ""
...

Gruß Karo