Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
660to664
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
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range.interior.colorindex

Range.interior.colorindex
01.09.2005 14:59:25
jolago
Hallo zusammen, kann mir jemand sagen was hier los ist:
Zellen Farbe in ungeschützten Bereichen einer geschützten Tabelle ändern
1.Habe zunächst einige Zellen in einer Tabelle, in denen ich
während der Laufzeit Eigenschaften verändern will auf range.locked =false
gesetzt. Alle anderen Zellen sind gesperrt.
2.Anschliessend wird die Tabelle geschützt über sheets(1).protect
3.Beim Anklicken einer ungeschützten Zelle wird ein change Ereignis ausgelöst. In dieser Prozedur soll mittels range.interior.colorindex = z.B 6 der Farbwert der Zelle geändert werden.
Problem: Beim Aufruf von range.interior.colorindex = 6 gibt er immer den Fehler
1004 aus - Die ColorEigenschaft des Interior-Objects kann nicht festgelegt werden.
Anmerkung: Das Range Object ist richtig initialisert. Der Wert des Bereichs kann ohne Probleme verändert werden.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range.interior.colorindex
01.09.2005 15:05:07
Ramses
Hallo
du solltest keine EXCEL Schlüsselwörter als Variablen verwenden
Wenn es ein Change oder Selection_Change Ereignis ist, verwende das Target-Objekt
Target.Interior.Colorindex = 6
Gruss Rainer
AW: Range.interior.colorindex
01.09.2005 15:09:13
jolago
hallo, danke für die schnelle Rückmeldung,
befinde mich in der sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 6
End Sub

Dies führt dann zu der Fehlermeldung !
Dann ist die Zelle geschützt o.T.
01.09.2005 15:12:35
Ramses
...
AW: Dann ist die Zelle geschützt o.T.
01.09.2005 15:17:15
jolago
.locked = false !
AW: Dann ist die Zelle geschützt o.T.
01.09.2005 15:20:19
Nepumuk
Hi,
dann so:
sheets(1).protect userinterfaceonly:=True
Und der Code in der Tabelle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Target.Locked Then Target.Interior.ColorIndex = 3
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
Danke userinterfaceonly:=True ist die Lösung
01.09.2005 15:44:29
Jolago
Danke jetzt läufts, Gruss JL
AW: Range.interior.colorindex
01.09.2005 15:14:20
Nepumuk
Hi,
in einer geschützten Tabelle kannst du, auch wenn die Zelle selbst nicht geschützt ist, das Interior - Objekt nicht ansprechen. Dazu müsstest du das Userinterface freigeben.
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: Nepumuk
01.09.2005 15:26:25
Jolago
Hi Nepumuk, danke für den Hinweis, kann ich denn das Userinterface freischalten ?
Oder meinst du ich muss den Schutz aufheben ?
AW: Nepumuk
01.09.2005 15:27:56
u_
Hallo,
in VBA
activesheet.protect password:="Pass", userinterfaceonly:=true
Gruß
Geist ist geil!

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
1
7
2
2
7
6
6
4