kleines Zwischenproblem was ich irgendwie nicht lösen kann :(
Per Knopfdruck in einer Userform möchte ich ein Tabellenblatt befüllen:
Private Sub eingabebutton_Click()
Dim lFreie As Long
Set wksean = Worksheets("EANCodes")
If artikelnummereingabe.Value = "" And bezeichnungeingabe.Value = "" And eaneingabe.Value = "" _
Then
msgBox " " & vbNewLine & " Es wurden keine Daten eingegeben!"
Else
If Len(artikelnummereingabe.Value) 6 Then
msgBox " " & vbNewLine & " Das ist keine gültige Artikelnummer!"
ElseIf bezeichnungeingabe.Value = "" Then
msgBox " " & vbNewLine & " Bitte eine kurze Beschreibung des Artikels angeben!"
ElseIf eaneingabe.Value = "" Then
msgBox " " & vbNewLine & " Bitte eine EAN-Nummer eingeben!"
Else
If Len(eaneingabe.Value) 12 Then
msgBox " " & vbNewLine & " Das ist keine gültige EAN-Nummer!"
Else
With wksean
lFreie = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lFreie, 1).Value = artikelnummereingabe.Value
.Cells(lFreie, 2).Value = bezeichnungeingabe.Value
.Cells(lFreie, 3).Value = eaneingabe.Value
Unload Me
End With
End If
End If
End If
End If
End Sub
Trotz meiner Unwissenheit was Schleifen anbelangt läuft es soweit einwandfrei :D *freu* ABER ich möchte VOR der Übernahme der Daten noch prüfen ob der Wert artikelnummereingabe.Value in Spalte A3 bis ALetzte befüllte bereits vorhanden ist. Wenn ja soll er Meckern und die Eingabe verweigern.
Hab jetzt schon so einiges ausgetestet. Aber das Thema "For" hat sich mir noch nicht ganz geöffnet ;)
Habt Ihr nen klitze kleinen Lösungsansatz für mich?
Tausend Dank an Euch
Viele Grüsse