Servus
wie kann ich die "Verneinung" zu is nothing programmieren? Siehe Sternchen in meinem Auszug
If Var2 Is Nothing Then
MsgBox ("Projekt nicht angelegt oder Überprüfe Syntax!")
ProjNr = "PRÜFEN"
End If
****** If Var2 Is Not Nothing Then
Zeile = Workbooks("Instandhaltungs-und Projektdatenbank.xls").Worksheets("Projekte").Columns(4).Find(Znr).Row
ProjNr = Workbooks("Instandhaltungs-und Projektdatenbank.xls").Worksheets("Projekte").Cells(Zeile, 1).Value
End If
Danke Fredericke