ich habe eine Tabelle die von Spalte A bis AK geht und eine variable Länge hat.
In Spalte A steht eine Rechnungsnummer. In den Spalten rechts daneben stehen manchmal keine Werte bzw. Sie werden nur einmal angezeigt.
Beispiel Rechnung 182 besteht aus 2 Positionen
Dann habe ich 3 Zeilen:
In der ersten stehen die Kundenstammdaten wie Name etc.
In den anderen beiden Zeilen sind die Kundenstammdaten leer aber z.B. der Artikel etc ist gefüllt.
Ich brauche ein Makro welches Fragt, ob in der Zeile in Spalte A der gleiche Wert wie darüber steht, und wenn ja dann soll er jede Leere Zelle mit dem Wert aus der Zeile darüber füllen.
Ich habe dieses schon mal getestet aber es geht nur mit einer Zeile und man muß manuell selektieren:
Sub CopyCellsleerobenjcSpalte()
Dim rng As Range
For Each rng In Selection.Columns(3).Cells
If Len(Trim$(rng)) = 0 And rng = rng.Offset(1, 0) Then rng = rng.Offset(-1, 0)
Next
End Sub
Weiß jemand eine Lösung?Vielen Dank und Gruß Lutz