Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige