ich möchte in meinem Projekt eine eventuelle Fehlermöglichkeit ausmerzen.
Mit diesem Codeschnipsel:
wbBK = Quelltabelle
wksK = Zieltabelle
If WorksheetFunction.CountIf(wksK.Range("E2:E65536"), wbBK.Range~f~("F2").Value) > 0 Then
wbB.Close
MsgBox "Der Name ist breits vorhanden" & vbLf & vbLf & _
"Das Einlesen wird abgebrochen!" & vbLf
~f~Exit Sub
Else
ob der gewisse Eintrag schon vorhanden ist.
Gesetzt den Fall, die Quelltabelle ist nicht vorhanden, soll der Code trotzdem weiterlaufen.
Als nächste Abfrage und Mitteilung habe ich dies eingebaut:
If wbBK Is Nothing Then
MsgBox "Das Tabellenblatt ist nicht vorhanden! ", , "Achtung"
Mein Problem ist jetzt, dass mit meinem Code bei nicht vorhanden sein der Quelltabelle, ebenfalls der Code abgebrochen wird.
Wie kann ich erreichen , das dann trotzdem der restliche Code weiterläuft?
Gruß Korl