Forums Neueste Beiträge
 

Einfärben der Zeile nach Eingabe in erster Spalte der Zeile

30/08/2007 - 20:07 von Markus Franz | Report spam
Hallo,



trotz intensiver Suche im Netz finde ich zu meinem Problem keine richtige
Lösung:



In meinem Tabellenblatt werden verschiedene Daten (zu lösende Aufgaben) in
jeweils einer Zeile erfasst. Die Tabelle ist so angelegt, dass in Spalte A
die Möglichkeit besteht, nach Abschluss der Aufgabe dann dort ein
Erledigungsdatum oder sonstigen Vermerk einzutragen.



Meine Vorstellung ist nun, dass sofort nach Eintragung in Spalte A bei der
betreffenden Zeile die gesamte Zeile von Spalte A bis G hellgrün eingefàrbt
wird. Somit wàre auf den ersten Blick sichtbar, dass diese Aufgabe
abgeschlossen ist. Sofern möglich würde ich dies gern per VBA lösen. Da ich
bereits in der Zeile alle 3 bedingten Formatierungen eingesetzt habe, fàllt
diese Möglichkeit weg.



Als Extra hatte ich noch vor, dass dann die erledigte Zeile durch Sortierung
nach unten verschoben wird (also alle Erledigungen werden nach
Erledigungsdatum sortiert) und immer nur die aktuellen unerledigten Aufgaben
sortiert nach Eingangsdatum (Spalte B) vor den erledigten Aufgaben stehen.



Wie löse ich die Probleme?



Vielen Dank für etwaige Lösungen.




Gruß

Markus
______________________________
Windows XP (SP2),
Office 2000



Antworten bitte ausschließlich in der Newsgroup!
 

Lesen sie die antworten

#1 Claus Busch
30/08/2007 - 21:31 | Warnen spam
Hallo Markus,

Am Thu, 30 Aug 2007 20:07:50 +0200 schrieb Markus Franz:

In meinem Tabellenblatt werden verschiedene Daten (zu lösende Aufgaben) in
jeweils einer Zeile erfasst. Die Tabelle ist so angelegt, dass in Spalte A
die Möglichkeit besteht, nach Abschluss der Aufgabe dann dort ein
Erledigungsdatum oder sonstigen Vermerk einzutragen.

Meine Vorstellung ist nun, dass sofort nach Eintragung in Spalte A bei der
betreffenden Zeile die gesamte Zeile von Spalte A bis G hellgrün eingefàrbt
wird. Somit wàre auf den ersten Blick sichtbar, dass diese Aufgabe
abgeschlossen ist. Sofern möglich würde ich dies gern per VBA lösen. Da ich
bereits in der Zeile alle 3 bedingten Formatierungen eingesetzt habe, fàllt
diese Möglichkeit weg.

Als Extra hatte ich noch vor, dass dann die erledigte Zeile durch Sortierung
nach unten verschoben wird (also alle Erledigungen werden nach
Erledigungsdatum sortiert) und immer nur die aktuellen unerledigten Aufgaben
sortiert nach Eingangsdatum (Spalte B) vor den erledigten Aufgaben stehen.



probiers mal so im Codemodul des entsprechenden Arbeitsblattes. Spalte H
muss dazu aber leer sein, da dort hin Werte zum Sortieren geschrieben
werden. Anschließend wird die Spalte H ausgeblendet:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim LRow As Long

If Intersect(Target, Range("A:A")) _
Is Nothing Then Exit Sub

LRow = Cells(Rows.Count, 2).End(xlUp).Row

If Target.Value <> "" Then
Range("A" & Target.Row & ":G" & Target.Row) _
.Interior.ColorIndex = 35
End If

Range("H2").Formula = "=--(A2<>"""")"
Range("H2").AutoFill Destination:=Range("H2:H" & LRow), _
Type:=xlFillDefault

Range("A1").Sort Key1:=Range("H1"), _
Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

Columns("H").Hidden = True
End Sub

Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen