TextBox
07.02.2003 12:32:21
Rebecca
Brauchen Hilfe
Im TextBox4 wollte ich Betrag eintragen
Im TextBox11 wollte ich Zahl
So wie der Moment benutze muss ich ständige die Spalte ändern
Wer kann mir Helfe?
Private Sub CommandButton1_Click()
Dim Z As Long ' bei mehr als 32... Zeilen bzw.
'Dim Z As Integer ' bei unter 32... Zeilen.
Z = Range("B3").End(xlDown).Row + 1
If Z > 65000 Then Z = 2
Cells(Z, 2) = TextBox1 'Valuta
TextBox1 = ""
Cells(Z, 4) = TextBox2 'Bezeichnung
TextBox2 = ""
Cells(Z, 6) = TextBox3 'Empfänger
TextBox3 = ""
Cells(Z, 7) = TextBox4 'Eingang&Ausgang
TextBox4 = ""
Cells(Z, 10) = TextBox5 'Häufigkeit
TextBox5 = ""
Cells(Z, 11) = TextBox6 'Fälligkeit Monat
TextBox6 = ""
End Sub
Danke Gruß Rebecca