Hallo,
folgendes Problem:
dim a As String
a = TextBox1 ' Liest den Wert aus der Textbox (Neue Teilenummer)
c = Range("A65536").End(xlUp).Offset(1, 0).Row ' Sucht die nächst leere Zelle in der Spalte 1
SuchWert = a 'Wertübergabe
Set rNg = Worksheets("tabelle1").Columns(1).Find(what:=SuchWert, LookIn:=xlValues)
'Nimmt Wert aus Textbox und sucht diesen in Spalte 1
Bis hierhin funktioniert noch alles.
Wie kann ich das in eine If-Schleife bringen?
If rNg = a then Msgbox("Die Nummer ist schon vorhanden")' funktioniert
sollte rNg die Nummer nicht finden, weil es sie nicht gibt ist (rNg = Nothing)
,und somit nicht vergleichbar, also Abbruch
Else
cells(c,1) = a
End if