|
Nochmal für die ganz schweren Fälle - war wohl auch zu subtil -: Entwweder
If (QZelle = "") And (ZZelle = "") Then
GoTo WahlNein
End If
ODER aber NUR (ohne "End If")
If (QZelle = "") And (ZZelle = "") Then GoTo WahlNein
WENN die Aktionen, die man ausführen will, wenn die Bedingung zutrifft, z.B. zu viele sind, um noch hinter THEN in die gleiche Zeile zu passen wie IF (oder man hat noch ELSE), nimmt man sie in die NÄCHSTE(n) Zeile(n), braucht dann aber, sozusagen als "KlammerZu" ein "End If", damit man weiss, WO sie aufhören, die Bedingungen,,,,
Aber diese Zeile(n) sind so oder so völlig überflüssig, da so oder so nach Auswahl gesprungen wird, wenn die beiden NICHT identisch sind, und zwar durch die NÄCHSTE IF-Zeiler.
Lösche mal sämtliche "On Error"-Zeilen und Stelle im VBA-Editor unter Extras/Optionen/Allgemein auf "Unterbrechen bei Jedem Fehler", dann siehst du auch sämtliche Fehler.
"Um also If QZelle <> ZZelle nutzen zu können, muss ich diese ja wohl erst zuweisen." ??? Das hast du doch direkt über der Zeile mit dem besagten IF bereits getan!!!
QZelle = Workbooks(QName.Name).Worksheets(QSheet.Name).Range(Cells(QZeile, Spalte)).Value
ZZelle = Workbooks(ZName).Worksheets(ZSheet).Range(Cells(ZZeile, Spalte)).Value
Und "Nun zum ersten, ich bin sogar aus den 60ern." ist doch gar kein Argument - ICH wurde 1958 geboren !
|