Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
10.02.2004 11:48:36
Alex
das in ein Modul rein und schaltfläche zuweisen

Sub Makro1()
Dim zähler
For zähler = 1 To 60000  ' oder so weit du willst Anzahl der Zeilen
Cells(zähler, 1).Select
If Selection.Interior.ColorIndex = 5 Then   ' Frage welche Farbe
Rows(zähler).Select
Selection.Delete Shift:=xlUp
End If
Next zähler
End Sub

AW: Zeilen löschen
10.02.2004 13:57:37
Frank
Sorry Alex,
die Zeilen waren nur zum besseren Verständnis blau dargestellt.
die Zeilen sind nicht farblich hinterlegt.
Könntest du mir nocheinmal den neuen Code zukommen lassen.
Gruss
Frank

AW: Zeilen löschen
10.02.2004 17:19:13
Frank
Hallo Alex,
ich arbeite immer noch fieberhaft an dem File und hätte noch eine Änderung!
Wie gesagt keine Hintergrundfarbe und nicht die kompletten Zeilen löschen
sondern nur den Inhalt der beschrifteten Zeilen in die Zeilen rücken die keine Beschriftung aufweisen -"ohne das Zeilen gelöscht werden"-.
Einen herzlichen Gruß aus dem Schwabenland
Frank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige