AW: Mit Userform Tabelle füllen
25.02.2017 15:50:45
Peter
Hallo Simon,
das sollte so funktionieren
Option Explicit
Private Sub CommandButton1_Click()
Dim lFreie As Long
If TextBox1.Value = "" Then
MsgBox "Sie müssen bitte die Textbox1 füllen - danke.", _
48, "Hinweis für " & Application.UserName
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
If ComboBox1.Value = "" Then
MsgBox "Sie müssen bitte die Combobox1 füllen - danke.", _
48, "Hinweis für " & Application.UserName
ComboBox1.SetFocus
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "Sie müssen bitte die Textbox2 füllen - danke.", _
48, "Hinweis für " & Application.UserName
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
If ComboBox2.Value = "" Then
MsgBox "Sie müssen bitte die Combobox2 füllen - danke.", _
48, "Hinweis für " & Application.UserName
ComboBox2.SetFocus
Exit Sub
End If
' die Boxes sind gefüllt, es kann übertragen werden
With ThisWorkbook.Worksheet("Tabelle1") ' den Tabellenblattnamen ggf anpassen!!!
lFreie = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("A" & lFreie).Value = TextBox1.Value
.Range("B" & lFreie).Value = ComboBox1.Value
.Range("C" & lFreie).Value = TextBox2.Value
.Range("D" & lFreie).Value = ComboBox2.Value
End With
End Sub
Es wird davon ausgegangen, dass die Ausgabe in Tabelle1 erfolgt - sonst musst du es anpassen
Dass alle Boxes gefüllt sein müssen - sonst musst du die Verprobung rauslöschen.
Gruß Peter