Code ergänzen.....bitte um Hilfe
26.05.2004 11:10:16
Peter
Mit dem nachstehende Code fülle ich die erste freie Zeile in Spalte A mit dem Wert aus TextBox1.....soweit so gut....
Dim x As Integer
x = Range("A1000").End(xlUp).Row
Cells(x + 1, 1) = TextBox1.Value
TextBox1 = ""
Jetzt möchte ich dass sich automatisch die weiteren leeren Zeilen in Spalte A mit einer um jeweils 1 erhöhten Zahl füllen, aber nur soweit Spalte B ""
Wer kann mir da bitte helfen?
Danke
Peter S.