laufende Numerierung generieren als Text?
25.06.2004 09:46:55
Peter
kannm man den nachstehenden Code so umbauen, daß vor den generierten Zahlen immer ein Leerzeichen in der Zielzelle steht?....das wäre super weil ich für die Weiterverarbeitung zuverlässig als Inhalt "Text" brauche und die Formatierung der Spalte als Text unzuverlässige Weiterverarbeitung ergibt.
Sub Startnummer()
Dim x As Integer
Sheets("Tabelle1").Select
x = Range("A1000").End(xlUp).Row
For B = x To Range("B65536").End(xlUp).Row - 1
x = x + 1
Cells(x, 1) = Cells(x - 1, 1) + 1
Next B
End Sub
Wäre super wenn das jemand machen könnte
Danke
Peter S.