kann man eine bedingte Formatierung einer Spalte je nach Bedarf ein- und ausschalten. Ein Button und etwas VBA, aber wie?
Gruß,Ralf
kann man eine bedingte Formatierung einer Spalte je nach Bedarf ein- und ausschalten. Ein Button und etwas VBA, aber wie?
Gruß,Ralf
etwa so:
Sub bedformatrein()
Columns("C:C").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="10"
Selection.FormatConditions(1).Interior.ColorIndex = 6
Range("D7").Select
End Sub
Sub format_raus()
Columns("C:C").Select
Selection.ClearFormats
Range("C1").Select
ActiveCell.FormulaR1C1 = "10"
Range("C2").Select
End Sub
das eine macht das format rein das andere raus
nun je nem button zuweisen und natürlich bei rein - deine formatierung!
kannst ja über recorder aufzeichnen
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Links zu EXCEL und mehr
danke erst mal für den Tip, aber einem Excel-Schöler müßtest Du das schon ein wenig genauer erklären.
Gruß, Ralf
gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Links zu EXCEL und mehr
in Spalte A steht das fortlaufende Datum und in B zu jedem Tag ein Kontostand, der sich je nach Zu-u. Abgang ändert. Die bedingte Formatierung für Spalte B ist so gewählt, daß der Kontostand nur bis zum aktuellen Datum erscheint (Formel ist=wenn(wert(a6)>(wert(heute()));wahr;falsch), so für Zelle B6 halt, und dann Schrift weiß.
Ab und an hätte ich aber die Formatierung abgeschaltet, um die Werte auch über das aktuelle Datum hinaus betrachten zu können, so als eine Art Kontovorschau.
Meine vba-Kenntnisse reichen tatsächlich nicht all zu weit, eine Schaltfläche bekomme ich noch hin, was drinnen steht ....naja.
Gruß, Ralf
nach anfänglicher Kurvenfahrt bin ich dank Deiner Ratschläge doch noch zum Ziel gekommen;
einen kleinen Hinweis könnte ich aber dennoch gebrauchen:
nach einem Button-Click soll der Cursor neben dem aktuellen Datum, das fortlaufend in Spalte A steht, in Spalte B erscheinen,
> z.Z. lautet aus der Makroaufzeichnung abgeleitet die letzte Zeile der Anweisung z. B.: Range("B5").Select.
Statt B5 sollte nun die Anweisung sinngemäß lauten: gehe zum aktuellen Datum und dann eine Zelle nach rechts ..... aber wie?
Gruß Ralf
versuchs mal so :
Sub datum_finden()
Dim z
z = 1
Cells(z, 2).Select
Do Until Cells(z, 2) = Date
z = z + 1
Loop
Cells(z, 3).Select
End Sub
gruß
andreas e
hab Deinen Tip statt der Zeile Range("B5").Select eingefügt, funzt aber nich so recht.
Mach ich etwas falsch?
Gruß Ralf
hab Deinen Tip statt der Zeile Range("B5").Select eingefügt, funzt aber nich so recht.
Mach ich etwas falsch?
Gruß Ralf
was funzt denn konkret nicht ?
wenn ich statt cells den range nehme funzt es ohne Problem
gruß
andreas e
hab erst einmal den Button geändert, der die Formatierung wieder einschaltet; hab also deinen Cod eingefügt und die Zeile Range..... (von der Makroaufzeichnung) mit einem Hochkomma versehen.
Beim Betätigen des Format-EIN-Buttons wird die bedingte Formatierung aktiv, d.h. die Zahlen werden bis zum aktuellen Datum angezeigt, der rest ist weiße Schrift; so weit, so gut. Nun wird an statt die aktive Zelle neben das aktuelle Datum zu setzten die gesamte Spalte C (Kontostand) markiert.
Ich kann mir nun nicht recht weiterhelfen - VBA-Niete. Bei Bedarf schick ich dir eine abgespeckte Version meiner Tabelle.
Sag halt noch mal Bescheid und vorerst vielen Dank,
Gruß Ralf
Um die bedingte Formatierung in Excel zu deaktivieren oder anzuhalten, kannst du einfach zwei Makros erstellen. Hier ist, wie du dabei vorgehst:
ALT + F11
, um den VBA-Editor zu öffnen.Einfügen
und wähle Modul
.Sub bedformatrein()
Columns("C:C").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="10"
Selection.FormatConditions(1).Interior.ColorIndex = 6
Range("D7").Select
End Sub
Sub format_raus()
Columns("C:C").Select
Selection.ClearFormats
Range("C1").Select
ActiveCell.FormulaR1C1 = "10"
Range("C2").Select
End Sub
Der Button für die Aktivierung der bedingten Formatierung sollte das bedformatrein
-Makro nutzen, während der Button für die Deaktivierung das format_raus
-Makro verwenden sollte.
Fehler: Die bedingte Formatierung bleibt trotz Klick auf den Deaktivierungs-Button bestehen.
format_raus
korrekt zugewiesen ist. Überprüfe auch, ob die Zielspalte richtig ausgewählt ist.Fehler: Der Cursor springt nicht zur gewünschten Zelle.
Sub datum_finden()
Dim z
z = 1
Cells(z, 2).Select
Do Until Cells(z, 2) = Date
z = z + 1
Loop
Cells(z, 3).Select
End Sub
Wenn du die bedingte Formatierung in Excel deaktivieren möchtest, ohne VBA zu verwenden, kannst du dies auch manuell tun:
Start
> Bedingte Formatierung
> Regeln verwalten
.Löschen
, um die Formatierung zu entfernen.Für eine temporäre Deaktivierung kannst du die Formatierung auch einfach auf Standard
zurücksetzen.
=WENN(WERT(A6)>(WERT(HEUTE()));WAHR;FALSCH)
und setze die Schriftfarbe auf Weiß für die Zellen, die nach dem heutigen Datum liegen.Mit den oben genannten Makros kannst du diese Formatierung schnell ein- oder ausschalten, je nach Bedarf.
CTRL + SHIFT + L
für Filter.Denke daran, deine Excel-Datei regelmäßig zu speichern, insbesondere wenn du mit VBA arbeitest.
1. Wie kann ich die bedingte Formatierung in Excel deaktivieren?
Du kannst die bedingte Formatierung deaktivieren, indem du das Makro format_raus
ausführst oder die Formatierung manuell über das Menü löschst.
2. Kann ich die bedingte Formatierung nur für bestimmte Zellen anhalten? Ja, du kannst die bedingte Formatierung für spezifische Bereiche anhalten, indem du die Zellen auswählst und das entsprechende Makro anwendest.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen