ich versuche mit einem commandButton (OK) Daten aus einem Userform in ein Tabellenblatt zu übertragen.
folgenden Code habe ich bereits erstellt:
Private Sub CommandButton3_Click()
Cells(lngLetzteZeile + 1, 1) = TextBox1
Cells(lngLetzteZeile, 2) = TextBox2
Cells(lngLetzteZeile, 3) = TextBox3
End Sub
---------------------------------------------
Function lngLetzteZeile() As Long
Dim i As Integer, lngMin As Long, lngMax As Long
For i = 1 To 256
lngMin = Cells(65536, i).End(xlUp).Row
If lngMax lngMax = lngMin
End If
Next i
lngLetzteZeile = lngMax
End Function
Nachdem ich die Daten eingegeben habe, und den OK Button angeklickt habe werden die Daten nicht in das Tabellenblatt übertragen.
Der Debugger bringt ach keine Meldung.
Kann mir Jemand helfen
Danke
Mike