fortl. Nummer VBA
23.09.2005 18:18:11
Bernd
bei diesem Code war mir ein Freund behilflich den ich nächster Zeit leider nicht
erreichen kann nun habe ich ein Problem bei dem ich nicht weiterkomme,
wäre super wenn mir jemand helfen könnte.
Problem:
Ich übergebe(und lese ein) mit der Textbox1 eine fortlaufende Nummer ist auch kein Problem, nur muss diese nicht nur aus Zahlen bestehen sondern aus Buchstaben mit Zahlen also z.B. EGT00100
Geht so was?
Private Sub CommandButton1_click()
Dim z As Integer, myArr As Variant
Dim iCounter As Integer
Sheets("Tabelle1").Activate
z = Range("A65536").End(xlUp).Row
Cells(z + 1, 1) = ComboBox1.Value
Cells(z + 1, 2) = ComboBox2.Value
Cells(z + 1, 3) = ComboBox3.Value
Cells(z + 1, 4) = ComboBox4.Value
Cells(z + 1, 5) = ComboBox6.Value
Cells(z + 1, 6) = TextBox1.Value
Sheets("Tabelle1").Select
Range("A2:K1000").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2:K1000").Select
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.Value = Date
Wert = Sheets("Tabelle1").Range("F65536").End(xlUp)
TextBox1.Value = Wert + 10
Gruss
Bernd
Anzeige