Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mehr als drei bedingte Formatierungen

Forumthread: Mehr als drei bedingte Formatierungen

Mehr als drei bedingte Formatierungen
01.01.2006 10:36:18
Simon
Hallo,
ich suche ein Makro, mit dem ich direkt beim Verlassen der gerade aktiven Zelle diese bedingt formatieren kann.
Ungefähr so:
Sub Beim_Wechseln_der_ActiveCell
Select Case activecell.value
case value = a
Anweisung
case value = b
Anweisung
case value = n
Anweisung
end select
Mir fehlt leider die Bezeichnung für die Routine "Beim_Wechsel_der_ActiveCell"
Danke, und frohes neues Jahr, Simon
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehr als drei bedingte Formatierungen
01.01.2006 11:18:02
Erich
Hallo Simon,
Du müsstest wohl die letzte Zelle als LastCell kennzeichnen.
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de
Anzeige
AW: Mehr als drei bedingte Formatierungen
01.01.2006 13:24:57
Simon
Hallo Erich,
kannst Du mir noch ein paar Zeilen zu der LastCell-Lösung schreiben. So ganz steig ich da nicht dahinter muss ich gestehen.
Danke, Simon
AW: Mehr als drei bedingte Formatierungen
01.01.2006 12:24:40
Eugen
hi
was du suchst, ist der sheet_change event.
öffne den vba editor mit alt f11, doppelklick im explorer
auf die tabelle, in dem sich öffnenden fenster in der
linken combo worksheet auswählen , in der
rechten combo change event wählen
mfg
Anzeige
AW: Mehr als drei bedingte Formatierungen
Simon
Hallo Eugen,
Deine Lösung passt, für die neue aktive Zelle, aber damit leider nicht zu meinem Problem. Mein Ablauf soll sein:
1)Zelle aktivieren (mit Maus oder TAB)
2)Wert eingeben
3)Zelle wechseln
--3a)Bedingte Formatierung in ALTER (gerade noch aktiver) Zelle überprüfen
--3b)Zelle wechseln
Deine Version formatiert leider die neue aktive Zelle, in der i.d.R. noch nichts steht.
Trotzdem danke für's Helfen.
MfG, Simon
Anzeige
AW: Mehr als drei bedingte Formatierungen
01.01.2006 14:31:53
Simon
Hi.
Leider hilft das nicht so ganz. Ich bräuchte quasi solch eine Prozedur:

Private Sub Worksheet_BeforeSelectionChange(ByVal Target As Range)
End Sub

Danke, Simon
Anzeige
AW: Mehr als drei bedingte Formatierungen
01.01.2006 14:41:07
HansH
Hallo Simon,
das wolltest Du doch:
"ich suche ein Makro, mit dem ich direkt beim Verlassen der gerade aktiven Zelle diese bedingt formatieren kann"
und damit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "Hier deine Aktion"
End If
End Sub

müsste es doch funktionieren.
Gruß
Hans
ich lass mal offen
Anzeige
AW: Mehr als drei bedingte Formatierungen
Simon
Hi,
danke an alle, die trotz "Kopfweh" am ersten Tag im neuen Jahr mir geholfen haben. Das ist die Lösung:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case Is = "A"
Target.Interior.ColorIndex = 6
Case Is = "B"
Target.Interior.ColorIndex = 7
Case Is = "C"
Target.Interior.ColorIndex = 8
End Select
End Sub

Das Jahr fängt ja gut an. Einen schönen weiteren Neujahrstag, Simon
Anzeige
;

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