6
Visual Basic Macro für Excel: ganze Zeile farbig makieren....???
Hallo!
habe folgendes Problem:
habe eine Exceldatei, dort werden seit ein paar Monaten Werte eingetragen.
Eine Spalte bezeichnet das Datum des Eintrags.
Das Datum dient als Suchkriterium für folgende Aufgabe:
Es sollen alle Zeilen farblich makiert werden, die Älter als 3 Monate sind.
Außerdem, und das ist das Wichtigste:
Wenn später neue Zeilen hinzugfügt werden, soll automatisch das Datum der Zeile überprüft werden und die Zeile auch makiert werden wenn sie dem oben genannten Kriterium entspricht.
Bitte helft mir...
Danke, Maik
habe folgendes Problem:
habe eine Exceldatei, dort werden seit ein paar Monaten Werte eingetragen.
Eine Spalte bezeichnet das Datum des Eintrags.
Das Datum dient als Suchkriterium für folgende Aufgabe:
Es sollen alle Zeilen farblich makiert werden, die Älter als 3 Monate sind.
Außerdem, und das ist das Wichtigste:
Wenn später neue Zeilen hinzugfügt werden, soll automatisch das Datum der Zeile überprüft werden und die Zeile auch makiert werden wenn sie dem oben genannten Kriterium entspricht.
Bitte helft mir...
Danke, Maik
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 18133
Url: https://administrator.de/forum/visual-basic-macro-fuer-excel-ganze-zeile-farbig-makieren-18133.html
Ausgedruckt am: 23.12.2024 um 16:12 Uhr
6 Kommentare
Neuester Kommentar
dafür braucht man eigentlich kein macro.
excel sollte dafür eine funktion, namens
"bedingte formatierung" zu verfügung
stellen, welche dem namen nach, im
menü format, angesiedelt is.
excel sollte dafür eine funktion, namens
"bedingte formatierung" zu verfügung
stellen, welche dem namen nach, im
menü format, angesiedelt is.
Super Idee, hab es auch schon getestet.
Was muß ich denn als Kriterium eingeben für das aktuelle Datum??
Im Detail:
Wenn ich die Datumsspalte makiere und dann auf Format --> bedingte Formatierung klicke kommt ein Fenster:
Hier trage ich ein:
Bedingung 1:
Zellwert ist
kleiner oder gleich
das aktuelle Datum
Was trägt man für das aktuelle Datum ein?
Der Tipp ist astrein
Was muß ich denn als Kriterium eingeben für das aktuelle Datum??
Im Detail:
Wenn ich die Datumsspalte makiere und dann auf Format --> bedingte Formatierung klicke kommt ein Fenster:
Hier trage ich ein:
Bedingung 1:
Zellwert ist
kleiner oder gleich
das aktuelle Datum
Was trägt man für das aktuelle Datum ein?
Der Tipp ist astrein
Moin daemonadmin82,
Zellwert... kleiner... =Heute()-90
HTH Biber
Zellwert... kleiner... =Heute()-90
HTH Biber
klappt nicht, makiert sich immer die ganze Spalte komplett, auch die Zellen werden eingefärbt die nicht ins Kriterium passen...
Help!!
Help!!
@daemonadmin82
Du musst darauf achten, dass Excel Dir nicht die Formel '=Heute()-90' beim ersten Eingeben frecherweise in einen Text umwandelt. Dann steht da nämlich in Anführungszeichen '="Heute()-90"'.
Ist immer ein bisschen hakelig über den Klicki-Bunti-Weg.
Biber
Du musst darauf achten, dass Excel Dir nicht die Formel '=Heute()-90' beim ersten Eingeben frecherweise in einen Text umwandelt. Dann steht da nämlich in Anführungszeichen '="Heute()-90"'.
Ist immer ein bisschen hakelig über den Klicki-Bunti-Weg.
Biber
So, hier meine Lösung mit programmiertem Makro, habe keine bedingte Formatierung verwendet:
Sub zeilefarbe()
Dim zelle As Range
Dim az As Integer
az = ActiveSheet.Range("D5").End(xlDown).Row
Workbooks("Fertigwaren_Sende.xls").Names.Add Name:="hoch", RefersTo:="=50erbis70er!$d$5:$d$" & az
'ActiveSheet.Names.Add Name:="hoch", RefersTo:="aktivesheet!$d$5:$d$" & az
For Each zelle In ActiveSheet.Range("hoch")
If zelle.Value <= Date - 90 Then
zelle.EntireRow.Select
Selection.Interior.Color = vbYellow
End If
Next zelle
End Sub
Sub zeilefarbe()
Dim zelle As Range
Dim az As Integer
az = ActiveSheet.Range("D5").End(xlDown).Row
Workbooks("Fertigwaren_Sende.xls").Names.Add Name:="hoch", RefersTo:="=50erbis70er!$d$5:$d$" & az
'ActiveSheet.Names.Add Name:="hoch", RefersTo:="aktivesheet!$d$5:$d$" & az
For Each zelle In ActiveSheet.Range("hoch")
If zelle.Value <= Date - 90 Then
zelle.EntireRow.Select
Selection.Interior.Color = vbYellow
End If
Next zelle
End Sub
