Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Range(Cells(R1,C1),Cells(R2,C2))

Forumthread: Range(Cells(R1,C1),Cells(R2,C2))

Range(Cells(R1,C1),Cells(R2,C2))
23.12.2003 16:34:36
Dirk Adebahr
Hallo Excel-Freunde!

Ich hab' da ein Problem, das mich seit einigen Tagen zur Verzweiflung bringt:

In einer SUB-Prozedur steht unter Anderem folgender Code:

With Application.Worksheets("Monatsplan_1").Range(Cells(1, (1 + Versatz)), Cells(3, (tage + Versatz))).Font
.Size = 10
.Bold = True
End With

Die Variable 'Versatz' ist hier übrigens mit dem Wert 2 belegt. 'tage' beträgt abhängig von der Monatslänge zwischen 28 und 31. Die With - Zeile ist als fehlerhaft markiert.
Lasse ich diesen ausführen, erhalte ich folgende Fehlermeldung:

Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler.

Ersetze ich "Monatsplan_1" gegen die ebenfalls existierende "Testtabelle1", läuft alles einwandfrei.

Ändere ich den Code folgendermaßen ab, funktioniert er auch wieder im "Monatsplan_1":

With Application.Worksheets("Monatsplan_1").Range("C1:AF3").Font
.Size = 10
.Bold = True
End With

Diese Verhaltensweise verstehe ich beim besten Willen nicht. Zusammengefasste Zellen o.ä. sind in der gesamten Tabelle nicht vorhanden. Excel sollte beim Zählen also nicht durcheinander kommen.

Kann einer von Euch mal ein bißchen Licht ins Dunkel bringen? Über Anregungen oder Lösungsvorschläge wäre ich sehr dankbar. Um die Programmiererei nicht ins Uferlose ausarten zu lassen, sollte die Lösung möglichst im Range(Cells(R1,C1),Cells(R2,C2)) - Format erfolgen.
Danke!

Gruß
Dirk Adebahr
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range(Cells(R1,C1),Cells(R2,C2))
23.12.2003 16:44:44
Nepumuk
Hallo Dirk,
weil Cells als Objekt auf die aktive Tabelle verweist. So geht es:

With Worksheets("Monatsplan_1")
With .Range(.Cells(1, (1 + Versatz)), .Cells(3, (tage + Versatz))).Font
.Size = 10
.Bold = True
End With
End With



Code eingefügt mit: Excel Code Jeanie

Beachte die Punkte vor Cells!!!!!!!!!
Gruß
Nepumuk
Anzeige
AW: Range(Cells(R1,C1),Cells(R2,C2))
23.12.2003 17:00:04
Dirk Adebahr
Hallo Nepumuk,

so einfach kann VBA sein! (...wenn man Ahnung davon hat. ;-) )
Allerbesten Dank! Funktioniert tadellos!

Ich wünsche Dir und allen anderen im Forum noch ein frohes und besinnliches Weihnachtsfest und einen guten Rutsch ins neue Jahr!

Gruß
Dirk Adebahr
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige