If schleife
Roger
IF-SCHLEIFE "B-NUMMER"
Die Werte weden nicht übernommen!
Hat jemand ne Idee?
Private Sub CommandButton2_Click()
Dim i
Dim Zelle
z = Range("A2").End(xlDown).Row + 1
If z > 65000 Then z = 2
cells(z, 1) = ComboBox1
cells(z, 2) = TextBox1
cells(z, 3) = TextBox2
cells(z, 4) = TextBox3
cells(z, 5) = TextBox4
cells(z, 6) = TextBox5
cells(z, 7) = TextBox6
cells(z, 8) = TextBox7
'Hier werden die "EINGABEN" gelöscht
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
' Dieses ist die Schleife "B-Nummer"
If ComboBox1 = "B20000" Then
cells(z, 1) = "B20000"
cells(z, 2) = "Datum"
cells(z, 3) = "Uhrzeit"
cells(z, 4) = " "
cells(z, 5) = "20/00"
cells(z, 6) = " "
cells(z, 7) = "Name"
cells(z, 8) = "Vorname"
End If
Private Sub CommandButton1_Click()
UserForm2.Hide
With Me.ComboBox1
.RowSource = "User!A2:i17"
End With
End Sub
Anzeige