Ich möchte die Spalte A mit "00" auffüllen,
aber nur bis in der Zeilenanzahl, die in
den anderen Spalten ebenfalls gefunden/
vorhanden ist.
Mit Zählvariable I und N als Gesamtanzahl der
Zeilen, aber wie weiter?
Sub Null_Null_einfügen()
Dim Zeile_a As Integer
DIM Zeile_e As Integer
Sheets("Tabelle1").Activate
Zeile_e = ActiveSheet.UsedRange.Rows.Count
Zeile_a = InputBox("Bitte die Zeilennummer eintragen, ab der eingetragen werden soll")
'meistens hat man ja Beschriftungen über der Spalte
For i = Zeile_a To Zeile_a + Zeile_e
If ActiveCell.Value <> "" Then
ActiveCell.Offset(0, 1).Value = "0"
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub