Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

Ansicht des Beitrags:

Von:
Florian

Datum:
07.10.2022 18:00:51

Views:
422

Rating:

Antwort:

Thema:
Rote Zeilen Enfernen

Hallo liebe VBA-Gemeinde,

ich stehe gerade auf der Leitung... ich möchte das die gesamte Zeile gelöscht wird, wenn in der Spalte A der Text rot geschrieben ist.

Mein Code funktioniert nicht... soweit bin ich...

1	Sub rote_Zeilen_entfernen()
2
3	'** Ermittlung der letzten Zeile in Spalte A
4	lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
5
6	'** Durchlauf aller Zeilen
7	For t = lz To 1 Step 1 'Zählung rückwärts bis Zeile 2
8
9	**Abfragen, ob in der ersten Spalte die Schriftfarbe rot ist
10	If Cells(t, 1).Font.Color = 3 Then
11	Rows(t).Delete Shift:=xlUp
12	End If
13
14	Next t
15	End Sub

Danke für eure Zeit und Hilfe!

LG Flo

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen