Antwort!
20.01.2006 08:54:38
Benjamin
bis die 1. spalte = leer ist. Ginge z.B. so
----------------------------
'Bezeichnung Sub
Sub Namen()
'Variablen deklarieren
Dim x as Integer
'Schleife initiieren!
Do Until Tabelle1.Cells(x, 1) = ""
'If Bedingung
If Tabelle1.Cells(x,1) = "" then
'Füllen der Zelle mit dem Wert der Zelle darüber
Tabelle1.cells(x,1) = Tabelle1.cells(x-1,1)
End If
'X Zähler weiter aufstocken
x = x +1
'Schleife schließen
Loop
End Sub
--------------
Das müsste so funktionieren, habs aber nich ausprobiert. :)
Anzeige