Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen löschen, wenn Bedienung erfüllt ist?

Zeilen löschen, wenn Bedienung erfüllt ist?
08.01.2014 11:37:59
Selma
Hallo Leute,
ich möchte in aktivem Arbeitsblatt (ab Zeile 2 bis letzte benutzte Zelle der Spalte A) die ZEILEN löschen, wenn in Spalte A, ...
• der Zellinhalt mit Schriftgröße 7.5 dargestellt ist
• der Zellinhalt mit Schriffarbe grün geschrieben ist
• der Zellinhalt mit Füllfarbe gelb dargestellt ist
• der Zellinhalt mit "Hausverwaltung" , "Steuerberatung" oder "Buchhaltung" beginnt
Wie mache ich das bitte per VBA?
Besten Dank im Voraus!
Gruß,
Selma

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen, wenn Bedienung erfüllt ist?
08.01.2014 12:24:52
Rudi
Hallo,
Sub Selma()
Dim rngC As Range, rngDel As Range
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
Select Case True
Case rngC.Font.Size = 7.5, _
rngC.Font.Color = RGB(0, 255, 0), _
rngC.Interior.Color = RGB(255, 255, 0), _
rngC Like "Hausverwaltung*", _
rngC Like "Steuerberatung*", _
rngC Like "Buchhaltung*"
If rngDel Is Nothing Then
Set rngDel = rngC
Else
Set rngDel = Union(rngDel, rngC)
End If
End Select
Next
If Not rngDel Is Nothing Then
rngDel.EntireRow.Delete
End If
End Sub

Gruß
Rudi

AW: Zeilen löschen, wenn Bedienung erfüllt ist?
08.01.2014 12:57:47
Selma
Hallo Rudi,
PERFEKT. Vielen Dank!
Gruß,
Selma
Anzeige

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige