Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.Interior.ColorIndex=x in anderem Blatt

.Interior.ColorIndex=x in anderem Blatt
08.01.2023 15:41:05
Joschi
Hallo Forum.
Mit dem Code
Sheets(BlattImp).Range(Cells(1, 1), Cells(MaxRowsI, MaxColsI)).Interior.Pattern = 6
erhalte ich einen Laufzeitfehler 1004, wenn ich nicht im angesprochenen Blatt bin.
Was mache ich falsch?
Gruß Joschi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .Interior.ColorIndex=x in anderem Blatt
08.01.2023 16:04:17
GerdL
Moin Joschi,
schreibe dein Blatt vor jeden .Range und jedes .Cells
Sheets(BlattImp).Range(Sheets(BlattImp).Cells(1, 1), Sheets(BlattImp).Cells(MaxrowsI, MaxcolsI)).Interior.Pattern = 6
Gruß Gerd
AW: .Interior.ColorIndex=x in anderem Blatt
08.01.2023 16:21:45
Joschi
Hallo Gerd.
Ich habe Deine Schreibweise übernommen:
Sheets(BlattImp).Range(Cells(1, 1), Sheets(BlattImp).Cells(MaxRowsI, MaxColsI)).Interior.Pattern = 6
Trotzdem bekomme ich den Laufzeitfehler 1004.
AW: .Interior.ColorIndex=x in anderem Blatt
09.01.2023 09:17:53
Daniel
Hi
Vor jedem Cells!
Gruß Daniel
AW: .Interior.ColorIndex=x in anderem Blatt
08.01.2023 16:05:53
Nepumuk
Hallo Joschi,
so:

With Worksheets(BlattImp)
.Range(.Cells(1, 1), .Cells(MaxRowsI, MaxColsI)).Interior.Pattern = 6
End With
Ohne die Bezugspunkte vor Cells beziehen sich diese auf die aktive Tabelle.
Gruß
Nepumuk
Anzeige
AW: .Interior.ColorIndex=x in anderem Blatt
08.01.2023 16:42:37
Joschi
Hallo Nepumuk.
Dein Code funktioniert. Problem gelöst. Danke
AW: .Interior.ColorIndex=x in anderem Blatt
09.01.2023 09:22:28
Daniel
Hi
Cells ohne Tabellenblattangabe referenzieren immer auf das aktive Tabellenblatt.
Bei Range(Cells(), Cells()) müssen die beiden Cells im selben Tabelkenblatt liegen wie die Range. Tun sie das nicht, bekommst du den Fehler.
In dem Fall einfacher so, das spart die With-Klamner

Sheets(BlattImp).Cells(1, 1).Resize(MaxRowsI, MaxColsI).Interior.Pattern = 6
Gruß Daniel

196 Forumthreads zu ähnlichen Themen

Bei ColorIndex = 34 - Formel einfügen
Heinz

Hallo im Forum
Ich habe ein Makro,das mir nach jeden Freitag im Monat eine Zeile mit ColorIndex = 34 einfügt.
Nun möchte ich, das mir nur auf den Zeilen die mit ColorIndex = 34 eingefügt wurden, eine Formel miteinfügt.
Habe zum besseren Verständnis eine Beispieldatei anghhängt.
...
29.12.2009 21:08:46
Thread-ID: 1126283
8 Beiträge
Anzeige
Ist Summe bei Interior.ColorIndex = 37
Heinz

Hallo Leute
Habe in unteren Code wenn ich in Spalte A ein Datum eingebe,wird mir eine Spalte vorher die Spalte A bis G eingefärbt.
Nun möchte ich,wenn die Zelle eingefärbt wird, das in D die Summe bis zur oberen eingefärbten Spalte die Formel =Summe() eingefügt wird.
Die obere einge...
06.02.2011 10:44:43
Thread-ID: 1199245
10 Beiträge
Range("A1:C1") = ColorIndex = 38
Karsten

Hallo,
ich möchte A1-C1 ohne select einfärben. Zwar wird mein Code anstandslos durchlaufen, aber es kommt keine Farbe.
Range("A1:C1") = ColorIndex = 38 'rosa
Kann ihn mir jemand richtig machen?
Danke Gruß
Karsten
10.12.2011 14:52:20
Thread-ID: 1241505
3 Beiträge
Anzeige
Backcolor in interior.colorindex "übersetzen"
Jens Huthmann

Liebe Excelianer,ich möchte die Hintergrundfarbe eines Optionbuttons (Backcolor-Eigenschaft) dazu benutzen, dass die Farbe des gewählten Optionbuttons für die Farbgestaltung von Zellen verwendet wird. Problem: Die Backcolor-Eigenschaft von VBA-Steuerelementen ist als Ganzzahl oder im RGB-Modus...
26.10.2002 12:50:51
Thread-ID: 173843
9 Beiträge
Interior. ColorIndex
Olli
Hallo Excel-Spezis;
ich moechte mit meinem Code gerne in Spalte C die Hintergrundfarben der Zelle auf die jeweilige Zelle in Spalte 7 uebertragen. Der Debugger motzt beim set b =...
Wie kann man den Debugger eigentlich beenden? Gibt es eine andere Moeglichkeit, als den Editor zu schliessen?<...
04.07.2003 11:39:08
Thread-ID: 277049
4 Beiträge
Nochmal Interior.ColorIndex
Olli
Hallo Forum,
jetzt habe ich folgendes vor. Ich moechte, wenn ich in Spalte 3 eine Zelle markiere, dann soll Excel fuer die Zeit des Markiertseins in der gleichen REihe, aber in Spalte 1 den Interior.ColorIndex auf Rot=3 setzten. Wenn keine Zelle in Sp. 3 mehr markiert ist, soll Excel den Interio...
04.07.2003 13:02:47
Thread-ID: 277114
4 Beiträge
Gibt es eine ColorIndex Tabelle ??
Michael
Hallo Zusammen.
Gibt es eine Tabelle, die eine Zuordnung zwischen Farbcode und Farbe enthält ?
Z.B: 1 = schwarz; 4= grün
Vorab Danke!
Michael
20.08.2003 11:50:34
Thread-ID: 297379
12 Beiträge
Interior.colorindex funktioniert nicht
Robert
Hallo,
ich habe in einer Userform folgenden Code:


For Each zelle In Range("Platzname")
If Not DTPicker2.Value = "" Then
zelle.Interior.ColorIndex = vbRed
Else
zelle.Interior.ColorIndex = vbGreen
End If
Next zelle<...
30.10.2003 12:40:50
Thread-ID: 331017
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
5
9
2
6
8
3
3
11
2
4
2
9
2
2
1
2
10
1
7
2
2
7
6
4