Hallo,
ich habe eine Tabelle in der 2 Nummern stehen:
Kundenummer / Auftragsnummer
Ich würde gern durch eine Msg Box die Kundenummer eingeben und VBA soll die richtige Zeile ausspucken wo Kundennummer und Auftragsnummer dientisch der Eingabe sind.
Leider bekomme ich es nicht hin. Ich hab es schon über .find versucht aber da gab es nur Fehler, jetzt hab ich es so versucht:
Dim KdNr As Variant, ANr As Variant
Dim zeile As Variant, letztezeile As Variant
Dim test As Variant
KdNr = Application.InputBox("Bitte geben Sie die Kundennummer ein")
ANr = Application.InputBox("Bitte geben Sie die Auftragsnummer ein")
Worksheets("Auftragsdatenbank").Select
zeile = 2
letztezeile = Worksheets("Auftragsdatenbank").Cells(Rows.Count, 2).End(xlUp).Row
Do Until Worksheets("Auftragsdatenbank").Cells(zeile, 1).Value = KdNr
If Worksheets("Auftragsdatenbank").Cells(zeile, 1).Value = KdNr Then
Worksheets("Formulare").Cells(21, 1) = Worksheets("Auftragsdatenbank").Cells(zeile, 1).Row
Else
zeile = zeile + 1
End If
Loop
Do Until zeile = letztezeile
If Worksheets("Auftragsdatenbank").Cells(zeile, 2).Value = ANr Then
test = Worksheets("Auftragsdatenbank").Cells(zeile, 2).Row
ElseIf test = Worksheets("Auftragsdatenbank").Cells(zeile, 1).Row Then
Worksheets("Formulare").Cells(22, 1) = Worksheets("Auftragsdatenbank").Cells(zeile, 2).Row
Else
zeile = zeile + 1
End If
Loop
Jedoch endet die Schleife jetzt im Nix und es bringt mir auch nicht die richtige Zeilennummer.
Ich benötige die Zeilennummer um das dann in einem anderen Excel-Sheet (Auftragsbesätigung) zu verwenden.
Danke schon mal.