OpenOffice.info

Verfasst: **Fr, 22.07.2011 08:54**

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

Verfasst: **Fr, 22.07.2011 11:43**

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

Verfasst: **Fr, 22.07.2011 12:06**

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 ?

Verfasst: **Fr, 22.07.2011 12:28**

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

Verfasst: **Fr, 22.07.2011 14:13**

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

Verfasst: **Fr, 22.07.2011 14:43**

Hallo

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

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

Gruß Karo

OpenOffice.info

Calc: leere Zellen automatisch befüllen

Calc: leere Zellen automatisch befüllen

Re: Zellen automatisch befüllen

Re: Zellen automatisch befüllen

Re: Zellen automatisch befüllen

Re: Calc: leere Zellen automatisch befüllen

Re: Calc: leere Zellen automatisch befüllen