Userform Feld vorbelegt
05.03.2016 01:47:53
Lana
ich habe ein Excel Programm das die Daten von einer Userform in Excel schreibt.
ich habe ein Feld (TextBox1) wo die Letzte Nummer in Zeile "A" ermittelt wird, und um ein erhöht in das Textfeld eingetragen wird. wenn ich es dann Speichere und es wird in die Tabelle
übertragen dann kommt immer ein (grüner Hinweis in der linken oberen Ecke), wenn ich denn Userform wieder öffne wird die Letzte Nummer nicht mehr erkannt, anscheinend wird die Zahl als Text in die Tabelle geschrieben. wie ist es möglich die Zahl als Zahl in die Tabelle zu Übertragen. die Zeile "A" ist als Zahl Formatiert
was Super wäre wenn ich auf Speichern klicke, sollte die letzte Nummer wieder abgefragt werden, und um einen erhöht in die TextBox1 geschrieben werden.
Könnt Ihr einen Tipp geben
Gruß
Lana
Private Sub Speichern_Click()
Dim zelle As Long
zelle = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(zelle, 1) = TextBox1
Cells(zelle, 2) = ComboBox2
Cells(zelle, 3) = TextBox3
Cells(zelle, 4) = TextBox4
Cells(zelle, 5) = TextBox5
Cells(zelle, 6) = TextBox6
Cells(zelle, 7) = TextBox7
Cells(zelle, 8) = TextBox8
Cells(zelle, 9) = ComboBox9
Cells(zelle, 10) = ComboBox10
Cells(zelle, 11) = ComboBox11
Cells(zelle, 12) = TextBox12
Cells(zelle, 13) = TextBox13
Cells(zelle, 15) = TextBox15
Cells(zelle, 16) = TextBox16
Cells(zelle, 17) = TextBox17
Cells(zelle, 18) = TextBox18
Cells(zelle, 19) = TextBox19
Cells(zelle, 20) = TextBox20
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox12 = ""
TextBox13 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""
Anzeige