Ich habe ein VBA Problem, vielleicht kann mir jemand helfen.
Der Fall liegt so das ich eine Arbeitsmappe erstellt habe in welcher auf einen Blick erkenntlich sein soll welcher Mitarbeiter (folgend MA genannt)unseres Betriebes welchen Handscanner benutzt (Scanner sind mit S001,S002 u.s.w. durchnummeriert).
Habe hierzu eine Auflistung der Scannernummern im Bereich A75:A150 angelegt,
In die "B" Spalte kommen direkt nebenan die entsprechenden MA-Namen.
Es soll nun so sein das ich über eine Befehlsschaltfläche in die InputBox die entsprechende Scannernummer eintrage und als Funktion die Spalte mit der Nr. markiert wird.
Habe bereits einen funktionierenden Code wie folgt:
Dim nummer As string
Dim zeile As Integer
nummer = InputBox("Bitte Scannernummer eingeben", "Eingabe")
zeile = Application.WorksheetFunction.Match(wert, Range("A1:A5000"), 0)
Rows(zeile).Select
Das Problem hiermit jedoch ist das bei einer Eingabe einer falschen Nr. oder vertippen direkt der Debug gestartet werden soll da ich in meinem Code keine Lösung hierfür habe.
Habe dann versucht dran "rumzubasteln" aber das will so auch nicht funktionieren, gebe ich nun einen korrekten Wert ein schließt er einfach die InputBox und nichts passiert, ist der Wert falsch: weiterhin Debug.
Hier der modifizierte Code:
Dim nummer As string
Dim zeile As Integer
nummer = InputBox("Bitte Scannernummer eingeben", "Eingabe")
If Application.WorksheetFunction.Match(wert, Range("A1:A5000"), 0) = True Then
zeile = Application.WorksheetFunction.Match(wert, Range("A1:A5000"), 0)
If Application.WorksheetFunction.Match(wert, Range("A1:A5000"), 0) = False Then Exit Sub
MsgBox ("Die Eingabe ist fehlerhaft oder existiert nicht")
Rows(zeile).Select
End If
End Sub
Wenn ich die Zeile:"Rows(zeile).Select" nach das "End If" setze beendet er nach jeder Eingabe einfach nur die Inputbox und nichts passiert.
Wenn da jetzt die fetten Fehler drin sind verzeiht mir bitte ich habe erst vor kurzem die Macht des VBA lieben gelernt und steh noch ganz am Anfang :)
Wäre echt toll wenn mir jemand in dieser Angelegenheit aushelfen kann.
Ich bedanke mich im Voraus für jeden Hilfeversuch.
Thomson
|->Wissen ist Macht