Zeilen löschen

Forumthread: Zeilen löschen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeilen löschen

Zeilen löschen

10.02.2004 12:32:02

Frank

Hallo Excel-Freunde,
wie kann ich die leeren Zeilen(blau)über die Schaltfläche löschen?
https://www.herber.de/bbs/user/3537.xls
Gruss
Frank

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen löschen

10.02.2004 12:48:36

Alex
AW: Zeilen löschen

10.02.2004 14:57:37

Frank
AW: Zeilen löschen

10.02.2004 18:19:13

Frank

AW: Zeilen löschen

10.02.2004 12: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 14: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 18: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

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!