Hallo Leute,
https://www.herber.de/bbs/user/150539.xlsx
Basierend auf der "Großkreisberechnung" von Klaus M. Kühnlein kann der Kurvenlauf des Großkreises durch Löschen der negativen und positiven Grad-Angaben auf die Strecke zwischen Rio de Janeiro und Frankfurt am Main begrenzt werden. Durch Einfügen des "grauen" Zellbereichs in die SpalteQ kann der Originalkurvenverlauf wieder hergestellt werden.
Ich habe ich die Berechnung von Flugstrecken erweitert und eine automatisierte Berechnung wie nachstehend aufgeführt:
Code1:

Range(Cells(723, 20), Cells(723 - ((180 - varP7) * 2 - 1), 20)).ClearContents

Code2:

Range(Cells(3, 20), Cells(3 + ((180 + varN7) * 2 - 1), 20)).ClearContents

Code1 löscht den Kurvenverlauf ab 180° östlich bis zum Standort Frankfurt am Main; Code2 löscht den Kurvenverlauf ab -180° westlich bis zum Standort Rio de Janeiro
Das funktioniert auch alles wie gewünscht.
Es deht mir nun darum, den Code1 mit dem Code2 als eine Codezeile darzustellen durch das Verbinden beider Codezeilen; die nachstehende Darstellung funktioniert nicht:

Range(Cells(723, 20), Cells(723 - ((180 - varP7) * 2 - 1), 20)).ClearContents & Range(Cells(3, 20), Cells(3 + ((180 + varN7) * 2 - 1), 20)).ClearContents

Wie lassen sich beide Codezeilen zu einer Codezeile verbinden?
mfg
reiner