Moin Moin Leute,
habe eine Frage bzw brauche Hilfe.
Ich möchte das der Command Button nur die Daten in die Tabelle übernimmt wenn alle Felder angeklickt bzw ausgefüllt sind. Und das eine Fehlermeldung
kommt welches Feld nicht ausgefüllt wurde.
Gibt es dafür ein Code? Wie progammiere ich es
So meine aktuelle Programmierung:
Private Sub Artikel_Click()
End Sub
Private Sub Kunden_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub LiefGH_Click()
End Sub
Private Sub Orga_Click()
End Sub
Private Sub PRO_Click()
End Sub
Private Sub vonKW_Click()
End Sub
Private Sub bisKW_Click()
End Sub
Private Sub Jahr_Click()
End Sub
Private Sub Tonnage_Change()
End Sub
Private Sub UserForm_Activate()
Kunden.List = Sheets("Tabelle2").Range("B2:B60").Value
Orga.List = Sheets("Tabelle2").Range("C2:C10").Value
LiefGH.List = Sheets("Tabelle2").Range("D2:D30").Value
PRO.List = Sheets("Tabelle2").Range("E2:E5").Value
Artikel.List = Sheets("Tabelle2").Range("F2:F35").Value
Jahr.List = Sheets("Tabelle2").Range("H2:H05").Value
vonKW.List = Sheets("Tabelle2").Range("J2:J55").Value
bisKW.List = Sheets("Tabelle2").Range("K2:K55").Value
End Sub
Private Sub CommandButton1_Click()
Dim z As Integer
z = Range("C65536").End(xlUp).Row + 1
Cells(z, 3) = Kunden
Cells(z, 4) = Orga
Cells(z, 5) = LiefGH
Cells(z, 6) = PRO
Cells(z, 7) = Artikel
Cells(z, 8) = Tonnage
Cells(z, 9) = Jahr
Cells(z, 11) = vonKW
Cells(z, 12) = bisKW
End Sub
Vielen Dank Voraus skatesporty
habe eine Frage bzw brauche Hilfe.
Ich möchte das der Command Button nur die Daten in die Tabelle übernimmt wenn alle Felder angeklickt bzw ausgefüllt sind. Und das eine Fehlermeldung
kommt welches Feld nicht ausgefüllt wurde.
Gibt es dafür ein Code? Wie progammiere ich es
So meine aktuelle Programmierung:
Private Sub Artikel_Click()
End Sub
Private Sub Kunden_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub LiefGH_Click()
End Sub
Private Sub Orga_Click()
End Sub
Private Sub PRO_Click()
End Sub
Private Sub vonKW_Click()
End Sub
Private Sub bisKW_Click()
End Sub
Private Sub Jahr_Click()
End Sub
Private Sub Tonnage_Change()
End Sub
Private Sub UserForm_Activate()
Kunden.List = Sheets("Tabelle2").Range("B2:B60").Value
Orga.List = Sheets("Tabelle2").Range("C2:C10").Value
LiefGH.List = Sheets("Tabelle2").Range("D2:D30").Value
PRO.List = Sheets("Tabelle2").Range("E2:E5").Value
Artikel.List = Sheets("Tabelle2").Range("F2:F35").Value
Jahr.List = Sheets("Tabelle2").Range("H2:H05").Value
vonKW.List = Sheets("Tabelle2").Range("J2:J55").Value
bisKW.List = Sheets("Tabelle2").Range("K2:K55").Value
End Sub
Private Sub CommandButton1_Click()
Dim z As Integer
z = Range("C65536").End(xlUp).Row + 1
Cells(z, 3) = Kunden
Cells(z, 4) = Orga
Cells(z, 5) = LiefGH
Cells(z, 6) = PRO
Cells(z, 7) = Artikel
Cells(z, 8) = Tonnage
Cells(z, 9) = Jahr
Cells(z, 11) = vonKW
Cells(z, 12) = bisKW
End Sub
Vielen Dank Voraus skatesporty