ich hätte da mal ein (vermutlich leicht zu lösendes) Anliegen, aber ich komme nicht drauf.
Mit einen CommandButton rufe ich eine Inputbox auf. Hier kann ich nach Artikelnummern suchen.
Ist die Nummer in Spalte C vorhanden kommt die Meldung "schon vorhanden" und falls nicht, "nicht vorhanden".
Das war noch einfach und funktioniert. Jetzt würde ich gerne das ganze aber noch wie folgt erweitern:
1. Ist die Artikelnummer vorhanden soll die entsprechende Zelle nach Bestätigung der MsgBox mit OK angewählt werden.
2. Ist die Artikelnummer nicht vorhanden soll er die letzte Zelle in der Spalte markieren in der noch keine Nummer steht.
Hier ist es aber so das in diesen Zellen " 'Artikelnummer eintragen" steht und die Zelle quasi nicht leer ist.
Wie muss ich nun den folgenden Code entsprechend abändern das es so funktioniert wie oben beschrieben?
Danke schon mal für Eure Hilfe,
Gruß
Dante
Sub Suchfenster()
Dim suche As String
Dim bereich As Range
'Inputbox mit Dialogfeld
suche = InputBox("Artikelnummer eingeben", "Artikelnummer suchen", "Artikelnummer hier eingeben" _
_
)
Set bereich = ActiveSheet.Range("C3:C5000").Find(suche, LookIn:=xlValues, LookAt:=xlWhole)
If Not bereich Is Nothing Then
MsgBox "Artikelnummer schon vorhanden"
Else
MsgBox "Artikelnummer noch nicht vorhanden"
End If
End Sub