Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro der Zellen einfärbt funktioniert nicht

Forumthread: Makro der Zellen einfärbt funktioniert nicht

Makro der Zellen einfärbt funktioniert nicht
28.06.2004 14:45:55
Carmen
Nochmal hallo,
habe noch ein anderes Problem. In einem Kalender werden Zellen anhand von Buchstaben farbig markiert. Kann mir jemand sagen warum die drei Möglichkeiten in meinem Makro nicht funktionieren? Ausser diesen drei fällt mir keine andere Möglichkeit mehr ein:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case "u": Target.Interior.ColorIndex = 46
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
Case "g": Target.Interior
.ColorIndex = 2
.Pattern = xlLightUp
.PatternColorIndex = 46
Case "b": Target.with Selection.Interior
.ColorIndex = 2
.Pattern = xlHorizontal
.PatternColorIndex = 46
End Select
End Sub

Habe diese Variante gewählt weil ich schon drei bedingte Formatierungen habe und jetzt noch einmal diese drei benötige!
Danke und Gruß
Carmen
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro der Zellen einfärbt funktioniert nicht
Jürgen
Hallo Carmen,
warum machst Du das nicht über eine "Bedingte Formatierung"?
Gruß
Jürgen
AW: Makro der Zellen einfärbt funktioniert nicht
28.06.2004 14:53:17
Carmen
Hallo Jürgen,
siehe den Satz unter dem Makro-Code! Habe bereits drei bedingte Formatierungen und weiche deshalb auf das Makro aus.
Gruß
Carmen
AW: Makro der Zellen einfärbt funktioniert nicht
Uduuh
Hallo,
Programmfehler. So soolte es gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case "u"
With Target.Interior
.ColorIndex = 46
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Case "g"
With Target.Interior
.ColorIndex = 2
.Pattern = xlLightUp
.PatternColorIndex = 46
End With
Case "b"
With Target.Interior
.ColorIndex = 2
.Pattern = xlHorizontal
.PatternColorIndex = 46
End With
End Select
End Sub

Gruß aus'm Pott
Udo
Anzeige
Vielen Dank! Es funktioniert! o.T.
28.06.2004 15:01:55
Carmen
.
AW: Makro der Zellen einfärbt funktioniert nicht
Ulf 

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Interior
Select Case Target.Text
Case "u": .ColorIndex = 46
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
Case "g": .ColorIndex = 2
.Pattern = xlLightUp
.PatternColorIndex = 46
Case "b": .ColorIndex = 2
.Pattern = xlHorizontal
.PatternColorIndex = 46
End Select
End With
End Sub

Ulf
Anzeige
Und wie bekomme ich die Farbe wieder raus?
28.06.2004 15:07:49
Carmen
Hallo Ulf,
danke für die Lösung! Jetzt habe ich eben bemerkt wenn jemand wieder einen Buchstaben rauslöscht, dann verschwindet natürlich die Farbe nicht. Wie müsste denn der Makro aussehen, damit bei Löschung eines zuvor eingegebenen Buchstabens gleichzeit die Farbe wieder rausgenommen wird?
Danke und Gruß
Carmen
Anzeige
AW: Und wie bekomme ich die Farbe wieder raus?
Ulf 

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Interior
Select Case Target.Text
Case "u": .ColorIndex = 46
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
Case "g": .ColorIndex = 2
.Pattern = xlLightUp
.PatternColorIndex = 46
Case "b": .ColorIndex = 2
.Pattern = xlHorizontal
.PatternColorIndex = 46
Case Else: .ColorIndex = xlNone
End Select
End With
End Sub

Ulf
Anzeige
Danke! Bin jetzt wunschlos glücklich ;o) o.T.
28.06.2004 15:29:30
Carmen
.
;

Forumthreads zu verwandten Themen

aktive Zelle reagiert nicht mehr
Dirk

Gute morgen Ihr Spezialisten,
habe mit Excel das Problem das mein Cursor (Rand um aktive Zellle) niht mehr weiterspingt wenn ich die Richtungstasten bewege. Es verschiebt sich nur die sichtbare Spalte. ein Worksheet makro exitiert nicht. So was habe ich noch nie gehabt. ist sehr lästig.
...
13.02.2009 09:58:00
Thread-ID: 1050359
4 Beiträge
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Information von Zelle wird nicht erkannt
Zelle

https://www.herber.de/bbs/user/60476.xls
Hey Leute
eigentlich habe ich hier ein gutes program aber in Ausgang gibt es ein problem ich denke es ist ganz klein.
jedoch für mich risig da ich es nicht lösen kann, siehe beispiel.
vielleicht kann mir jemand helfen, bin aber kein prof...
19.03.2009 18:25:55
Thread-ID: 1061948
9 Beiträge
Zelle wird nicht berechnet
Günter

Hallo Zusammen,
ich habe in Sub Worksheet_SelectionChange(ByVal Target As Range)
folgenden Befehl stehen
If (Cells(z, R16).Value) > 0 Then Cells(z, R18).Value = Cells(z, R16).Value + zd Else Cells(z, R18).Value = Cells(z, R14).Value + zd End If
Die entsprechend...
25.04.2009 19:36:04
Thread-ID: 1071147
6 Beiträge
Umrandung um aktive Zelle nicht weiß?
born

Guten Abend,
normalerweise gibt Excel doch um die aktive Zelle eine weiße Umrandung.
Ich möchte aber vor meinem schwarzen Hintergrnd diese weiße Umrandung
nicht sehen. Excel soll mir die aktive Zelle so nicht anzeigen. Geht das?
Lieben Gruß und Dank,
Born
29.12.2009 20:02:35
Thread-ID: 1126298
11 Beiträge
Über mehrere Zellen zentrieren (nicht markiert)
Peter

Guten Tag
Ich will in einer Tabelle über A1:H1 eine Überschrift zentrieren. Wenn der Bereich selektiert ist, funktioniert das wie folgt:
Range("A1:H1").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
End with
Gibt eine Möglichkeit, die Zentrierung üb...
24.01.2011 15:49:36
Thread-ID: 1197065
4 Beiträge
Anzeige
Makro markiert nicht gewünschte Zellen
conny

Ich habe ein Problem mit meiner Sub-methode.
Also ich will einen Bereich feststellen in dem die Zellen mit Inhalt gefüllt sind und diesen anschließend markieren.
Dazu habe ich folgenden Quellcode:Sub Spalte() Dim aktz As Object, cell1 As Object, cell2 As Object
Dim zeil As Integ...
22.07.2002 14:06:00
Thread-ID: 139033
11 Beiträge
Kopierte Zellen einfügen / Summe wird nicht aktual
Marcus

Moin,
ich habe Excel 2013 in Betrieb und stehe vor einem kleinen Problem. Vielleicht kennt das jemand und weiß Rat?
Ich schildere das kurz:
A1 = Überschrift
A2-A5 = Werte
A6 = Summe A2-A5
Wenn ich jetzt in A6 "kopierte Zellen einfüge" mit einem Wert, wird die Summe in A6...
30.07.2014 14:48:46
Thread-ID: 1373172
3 Beiträge
VBA: Zellen verbinden funktioniert nicht. Warum?
David

Hallo zusammen,
eigentlich war ich der Meinung, mittlerweile schon ein ganz ordentliches VBA-Repertoire erworben zu haben. Momentan zweifle ich aber daran.
Wenn ich mehrere Zellen untereinander markiere, sollen diese verbunden werden und eine bestimmte Formatierung bekommen. Das geht so...
20.05.2015 09:02:06
Thread-ID: 1426838
10 Beiträge
Kontextmenü für Zellen wird nicht angezeigt
Michael

Hallo,
bei mir wird das rechte Maus Menü einer Zelle nicht mehr angezeigt (Zellen einfügen, Kommentare einfügen, ...).
Kann jemand helfen?
Danke und Grüße
Michael
14.01.2016 09:00:26
Thread-ID: 1468765
3 Beiträge
VBA Zellen ausblenden funktioniert nicht mehr
André

Hallo zusammen,
kann mir jemand sagen, warum ich den Laufzeitfehler '1004' bekomme?
"Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden."
Ich habe folgende Funktion geschrieben:
Private Sub button_showDCpricing_Click() If Rows(20).Hidden = False Then Rows("...
16.08.2016 13:03:08
Thread-ID: 1509547
3 Beiträge
Zellenergebnis wird nicht angezeigt
Thomas
Hi,
ich habe gerade ein Phänomen in meiner Exceldatei, welches ich mir nicht erklären kann.
Ich wollte zwei Tabellen (master_table & to be compared table) miteinander vergleichen.
Tabelle ist noch im Aufbau!!!
In der Mappe Ergebnis habe ich in der Zeile 8 festgestellt, dass beide Ze...
01.04.2017 12:36:19
Thread-ID: 1550565
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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