Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler bei Range

Forumthread: Fehler bei Range

Fehler bei Range
23.01.2018 20:07:10
Marco
Hallo alle miteinand,
ich habe ein Problem mit meiner Range Anweisung. Ich habe die Spalten wie folgt festgelegt L, P, T, X. Beim ausführen des Makros erhalte ich die Meldung "Anwendungs- oder Objektfehler.
Würde mir bitte jemand sagen wie ich die Range richtig angeben muss?
Public Sub StartEinfärben()
Dim b As Range
Set b = Intersect(Sheets("test").Range("13:51,60:137,146:196"), Sheets("test").Range("L, P,  _
T, X"))
Union(b, b.Offset(, 1)).Interior.Color = RGB(242, 242, 242)
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei Range
23.01.2018 20:23:16
Luschi
Hallo Marco,
so klappts: Range("L:L, P:P, T:T, X:X")
Gruß von Luschi
aus klein-Paris
AW: Fehler bei Range
23.01.2018 20:30:40
Marco
Danke Luschi, das habe ich auch schon probiert, das Problem ist nur es wird komischerweise die Spalte neben L, P, T und X auch eingefärbt und ich weiß nicht warum. Kann das irgendwie mit dem Schreibschutz zusammenhängen?
Anzeige
AW: Fehler bei Range
23.01.2018 20:44:26
Luschi
Hallo Marco,
das pssiert durch diesen Befehl: Union(b, b.Offset(, 1)).Interior.Color = RGB(242, 242, 242)
Teste das mal: 

Public Sub StartEinfärben()
Dim b As Range, c As Range
Dim s1 As String, s2 As String
s1 = "13:51,60:137,146:196"
s2 = "L:L, P:P, T:T, X:X"
Set b = Intersect(Sheets("test").Range(s1), Sheets("test").Range(s2))
Debug.Print b.Address
Set c = Union(b, b.Offset(, 1))
Debug.Print c.Address
End Sub
Da siehst Du dann im Direktfenster (Strg+G) die Wirkung der Union-Anweisung
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Fehler bei Range
23.01.2018 21:24:39
Marco
Also die Ausgabe stimmt laut dem Direktfenster aber das Ergebnis ist trotzdem ein anderes. Ich glaube ich lass es sein. Ich brauch das nicht unbedingt es wäre nur schön gewesen wenn es funktioniert hätte.
Aber danke Luschi
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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