Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1764to1768
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.......

Zeilen löschen Wenn.......
14.06.2020 09:39:20
Michael
Hallo Leute
Ich muss Euch mal wieder um Hilfe bitten
Die Aufgabe: Wenn in Spalte L die erste leere Zelle erscheint soll der Inhalt dieser und aller darunter liegenden Zeilen gelöscht werden.
Ein Macro das ich bei bedarf aufrufen kann währe Ideal.
Für Eure Hilfe bedanke ich mich schon mal im voraus.
gruß
Michael

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen Wenn.......
14.06.2020 09:48:24
Hajo_Zi
Halo Michael,
Option Explicit
Sub LoeschenL()
Dim RaFound As Range
Set RaFound = Columns(12).Find("", Range("L1"), , xlPart, , xlNext)
If Not RaFound Is Nothing Then
Rows(RaFound.Row & ":1048576").Delete
End If
End Sub

AW: Zeilen löschen Wenn.......
14.06.2020 10:36:29
Michael
Hallo Hajo
Erst mal vielen Dank für die schnelle Hilfe.
Das Macro macht genau das was ich erreichen wollte, aber es kommt ein Laufzeitfehler (6) Überlauf
gruß
Michael
AW: Zeilen löschen Wenn.......
14.06.2020 10:39:50
Hajo_Zi
Hallo Michael,
bei mir nicht.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo
Anzeige
AW: Zeilen löschen Wenn.......
14.06.2020 10:58:54
Michael
Hallo Hajo
Hier mal die Datei, das Macro soll für das Blatt "Zeiten" funktionieren.
https://www.herber.de/bbs/user/138274.xlsm
Für deine Bemühungen schon jetzt ein großes Dankeschön.
gruß
Michael
AW: Zeilen löschen Wenn.......
14.06.2020 11:06:51
Hajo_Zi
Hallo Michael,
Option Explicit
Sub LoeschenL()
Dim RaFound As Range
Set RaFound = Columns(12).Find("", Range("L1"), , xlPart, , xlNext)
If Not RaFound Is Nothing Then
Application.EnableEvents = False
Rows(RaFound.Row & ":1048576").Delete
Application.EnableEvents = True
End If
End Sub
Gruß Hajo
Anzeige
AW: Zeilen löschen Wenn.......
14.06.2020 12:36:58
Michael
Hallo Hajo
Top
Vielen Dank noch mal
gruß
Michael
AW: Zeilen löschen Wenn.......
15.06.2020 10:28:45
Daniel
Hi
da die darunterliegenden Zeilen in Spalte L ebenfalls leer sind, reicht ein Einzeiler:
Sub LöschenL()
Sheets("Zeiten").Range("L7:L1000000").SpecialCells(xlcelltypeblanks).EntireRow.ClearContents
End Sub
Gruß Daniel

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige