Vorab schon vielen Dank für die Hilfe
probier mal den Code:
Private Sub CommandButton1_Click()
Code eingefügt mit Syntaxhighlighter 1.16
Option Explicit
Dim i As Integer, Cr As Long, Cc As Integer
Dim wks As Worksheet
Cr = 65536
Cc = 1
Set wks = Worksheets("Tabelle1") ' wo die Daten hinsollen
If wks.Cells(Cr, Cc) = "" Then
Cr = wks.Cells(Cr, Cc).End(xlUp).Row
Debug.Print "Zeile " & Cr
End If
If Cr = 0 Then Cr = 1
For i = 1 To 5
wks.Cells(Cr + 1, i) = Me.Controls("TextBox" & i)
Next i
For i = 1 To 5
Me.Controls("TextBox" & i) = ""
Next i
Me.TextBox1.SetFocus
End Sub
Gruss Rainer
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen