Wie stellst du dir das vor?
Nur die leren Zellen mit der Formel befüllen?
Dann kannst du ebenso gut direkt "AutoA" manuell runterkopieren.
Ohne Hilfsspalte oder Makro macht das keinen Sinn.
Diu solltest eine neue Spalte vor "A" hinzufügen, Spalte B hineinkopieren und für die erste Zeile in Spalte A (wenn die Daten bei Zeile 1 beginnen) diese Formel nehmen:
=ZS(1)
Wenn nicht, dann das folgende schon ab Zeile 1 :
Für die zweite Zeile:
=WENN(ZS(1)<>"";ZS(1);Z(-1)S)
und runterkopieren.
Spalte B kannst du ja ausblenden.
Ansonsten (ohne Hilfsspalte und mit Makro) einfach ein Button erstellen und ihm dieses Makro zuweisen:
Sub Schaltfläche1_Klicken()
Dim z
For z = 2 To 10000 'leere Zellen ab Zeile 2 - ggf ändern! Für 10000 Zeilen, bei Bedarf erhöhen!
If Tabelle1.Cells(z, 2) <> "" Then' ggf Tabellennummer ändern
If Tabelle1.Cells(z, 1) = "" Then
Tabelle1.Cells(z, 1) = Tabelle1.Cells(z - 1, 1)
End If
End If
Next z
End Sub
|