Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe ein kleines Problem, welches mir viel Arbeit bereitet. Eine Tabelle mit ca. 2.000 Zeilen enthaelt in in Spalte A und B Grupierungsmerkmale, ab Spalte C die Inhalte der einzelnen Datensaetze. Bis zu einem Gruppenwechsel sind dann die Zellen der Spalte A und B leer. Beispiel [code] A.....|B.....|C..... .|D... G1....|Datum1|Inhalt 1|xx ......|......|Inhalt 2|xx ......|......|Inhalt 3|xx G2....|Datum2|Inhalt 1|xx ......|......|Inhalt 2|xx ......|......|Inhalt 3|xx ......|......|Inhalt 4|xx ......|......|Inhalt 5|xx G3....|Datum3|Inhalt 1|xx G4....|Datum4|Inhalt 1|xx ......|......|Inhalt 2|xx [/code] Wie kann ich mittels Makro oder VBA die leeren Zellen automatisch mit dem jeweiligen Inhalt der Gruppe (Spalte A und B) auffuellen lassen? Also wie bekomme ich in den Wert von A1 in A2, A3; von A4 in A5, A6, A7, A8; usw. (natuerlich das Gleiche auch von Spalte B). Waere super, wenn jemand einen Vorschlag hat! Vielen Dank schon einmal und die Gruesse Thomsa

Hallo,

versuch es mal mit dem Makro

Sub Auffüllen()
letzteZeile = Range("c65536").End(xlUp).Row
wert_a = Range("A1").Value
wert_b = Range("B1").Value
For i = 2 To letzteZeile
If Range("A" & i).Value = "" Then
Range("A" & i).Value = wert_a
Range("B" & i).Value = wert_b
Else
wert_a = Range("A" & i).Value
wert_b = Range("B" & i).Value
End If
Next i
End Sub

Wobei ich davon ausgehe, das alle Zeilen ab Spalte C gefüllt sind

Gruß

Helmut

Funktioniert perferkt!
Genau was ich suchte...

Vielen Dank und Gruesse
Thomas

• Zelle kopieren
• Wie kann ich in Excel in jeder Zelle am Ende automatisch ein Komma einfügen?
• Nächste frei Zeile aus wählen
• Laufwerkbuchstabe andert sich automatisch
• Befehl zum Kopieren eines Zellinhaltes in Wenn Formel verwenden