Jetzt musst es nurnoch nutzen/verstehen.
Bevor Du Deinen Code ausführst, Debugge Ihn wie folgt:
Dann wirst Du sehen, dass die Fehlermeldung auf Zeile 21 auf .Adress zeigt.
.Adress gibt es nicht (#438)
.Address gibt es.
Nutze die IntelliSense. Drücke den Punkt, drücke a und vervollständige mit der Tab-Taste.
Aber noch wichtiger. Deklariere den "richtigen" Datentyp immer dann wenn es geht.
Dim Cell3 as Excel.Range ist besser als Dein Variant.
Auch bei der Benennung Deiner Variablen solltest Du Dir etwas überlegen. Recherchiere (ja, wenn auch nichtmehr zeitgemäß für den Einen oder Anderen) nach der ungarischen Notation, dann verstehst Du was ich meine.
gruß
Marco
|