Hallo Gast01287,
danke das du dich des Themas angenommen hast.
Nun zum ersten, ich bin sogar aus den 60ern.

Leider sehe ich jetzt bei deinem ganzen Text nicht wirklich eine Lösung für mein Problem.

Was du nicht wissen kannst, QName ist als Workbook dimensioniert. Also braucht es dieses Workbooks(QName.Name) damit es durchläuft.
ZName ist als String Dimensioniert, da braucht man es nicht.

   Dim QName As Workbook

   Dim QSheet As Worksheet

   Dim ZName As String

   Dim ZSheet As String

Außerdem läuft dieser Teil des Programmes ja auch.

Range(Cells(ZZeile, Spalte)) ????

Evtl. liegt genau dort mein echtes Problem.

Wenn ich aber das Range wegnehme und nur  

 QZelle = Workbooks(QName.Name).Worksheets(QSheet.Name).Range(QZeile, Spalte).Value

Nutze, geht es auch nicht.

Wie du meinem Code entnehmen kannst, liegen die beiden Zellen in zwei verschiedenen Tabellen.
Um also If QZelle <>  ZZelle nutzen zu können, muss ich diese ja wohl erst zuweisen.

„

Ausserdem: Entweder

If x=y Then DasUndDas  (OHNE END IF)

ODER

If x=y Then

   DasUndDas

End If

“

Ich möchte ja in diesem Teil des Codes etwas überspringen, wenn Qzelle und ZZelle leer sind.

Aber ich habe trotzdem aus dem Kommentar von dir herausgelesen, dass man nach einem

If x=y Then DasUndDas   kein End if benötigt.  

Wenn man es aber in 2 Zeilen schreibt, braucht man es. Stimmt das so?

Mal ganz abgesehen davon, dass man alles auch in nicht mal halb so vielen Zeilen hätte schreiben können.

Wenn ich so gut wäre, und das alles in halb so vielen Zeilen hätte schreiben können, hätte ich hier nicht diese Frage gestellt.

Und  "Goto" benutzt man seit den 80ern fast gar nicht mehr.

Was benutzt man denn heute, wenn man etwas überspringen möchte?
Die Aussage hilft mir leider auch nicht wirklich weiter.

Ich habe übrigends auch schon mit einem Array versucht zu Arbeiten, aber dann hatte es leider nicht Funktioniert.
Bei einer Nachfrage warum kam die Antwort, das zu viele Aktionen in dem Array ablaufen würde und das Array so viele Aktionen nicht Zwischenspeichern kann.
Das ist auch der Grund, Warum es bei Application.EnableEvents = true auch hängen bleibt. Ich habe es mit  false probiert und dazwischen ein Doevent gepackt und es läuft. Auch wenn ich die Aussage nicht verstehen muss.
in meinem Alter muss ich nicht mehr alles Verstehen, solange ich es zum laufen bringe.

Es wäre Nett, wenn du mir die Frage bezüglich des End If noch beantworten könntest.

Ansonsten versuche ich weiter den Code zum laufen zu bringen.

Danke