Musseingabe VBA Schleife
rene
Bräuchte wieder mal eure Hilfe ,hab hier schon etwas gefunden was mir weitergeholfen hat ,Habe daraus einen Code gebastelt ,aber ne Kleinigkeit fehlt noch. wie können mehrere Kriterien abgefragt werden ,zusätzlich zur" Bestellnummer "zB "Rechnung"(ActiveWorkbook.Sheets("Tabelle1").Cells(3, 1).Value und "Flughafen",)ActiveWorkbook.Sheets("Tabelle1").Cells(4, 1).Value,
hier ein Beispielcode
Private Sub Workbook_Open()
Range("A1:A2").Select
Selection.ClearContents
Dim titel As String
titel = "Bestellnummer "
Do
Eingabe = InputBox("Bitte unbedingt die Bestellnummer eingeben!", titel)
If Trim(Eingabe) = "" Then
titel = "Bestellnummer"
Else
ActiveWorkbook.Sheets("Tabelle1").Cells(2, 1).Value = Eingabe
Exit Do
End If
Loop
End Sub
Danke im vorausRene