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