Hallo liebe Forenmitglieder,
ich habe foldendes Problem bei meinem Code:
Der Code soll in der der CodeTabelle die A-Spalte abfragen ob dieser Code bereits angelegt ist.
Allerdings lässt sich hier "finden" und "eingabe" nicht vergleichen wenn die "finden" Variable keinen Wert enthält :/
habt ihr hier eine Idee?
außerdem brauche ich von der gefundenen Zeile die Zeilenadresse mit dem "Cell-Wert"
Danke schonmal im vorraus, ich komm hier einfach nicht mehr weiter :)
Sub Einlagern()
Dim eingabe As String
Dim finden As Range
' hier die Texteingabe der Infobox unter Eingabe speichern
eingabe = InputBox("Code hineinschreiben")
'MsgBox eingabe
If eingabe = "" Then
MsgBox "Code kann nicht gefunden werden!", vbOKOnly + vbCritical, "Warnung!"
Exit Sub
End If
Worksheets("CodeTabelle").Activate
'die Texteingabe nur suchen lassen in der A Spalte (um Fehler zu vermeiden)
'und abspeichern unter finden
Set finden = Range("A4:A9999").Find(what:=eingabe)
If finden <> UCase(eingabe) Then
MsgBox "Code kann nicht gefunden werden!", vbOKOnly + vbCritical, "Warnung!"
Exit Sub
End If
|