Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
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

Zeilen löschen
Manfred
Hallo zusammen,
weis jemand wie ich das markieren der Zeilen auf kompl löschen der Zeilen umstellen kann ?
Also, Zeilen in Sp C mit Inhalt müssen kompl. gelöscht werden.
Sub nicht_leere_Zeilen_loeschen()
'Löscht nicht leere Zeilen
Dim c As Range
Dim Bereich As Range
Dim ErgBereich As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = Range("C1:C" & laR)
For Each c In Bereich
If c.Value  "" Then
Set ErgBereich = c
Exit For
End If
Next c
If ErgBereich Is Nothing Then
MsgBox "Nichts gefunden !", vbOKOnly + vbInformation, _
"Dezenter Hinweis für " & Application.UserName & ":"
Else
For Each c In Bereich
If c.Value  "" Then
Set ErgBereich = Application.Union(ErgBereich, c)
End If
Next c
ErgBereich.Select
Set ErgBereich = Nothing
Set Bereich = Nothing
End If
Application.ScreenUpdating = True
End Sub

Mit freundlichen Grüßen
Manfred

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen löschen
25.11.2010 15:44:16
Hajo_Zi
Hallo Mafred,
ersetze Select durch Delete.

AW: Zeilen löschen
25.11.2010 15:46:42
Manfred
Hallo Hejo,
habe ich schon probiert, es wird nur der Zellinhalt gelöscht aber nicht die ganze Zeile.
Hast Du noch ne Idee ?
Gruß
Manfred
AW: Zeilen löschen
25.11.2010 16:08:20
Hajo_Zi
Hallo Manfred,
hier schreibst Du nur die Zelle auf die Variable
Set ErgBereich = Application.Union(ErgBereich, c)
falls Du die Zeile löschen möchtest muss es wahrscheinlich so
Set ErgBereich = Application.Union(ErgBereich, c.row)
lauten.
Gruß Hajo
Anzeige
AW: Zeilen löschen
25.11.2010 16:14:43
Manfred
Hallo Hajo,
sorry, funzt nicht, Die Typen sind unverträglich.
Gruß
Manfred
AW: Zeilen löschen
25.11.2010 21:34:31
Josef

Hallo Manfred,
laut deiner Beschreibung müsste das genügen.


Sub nicht_leere_Zeilen_loeschen()
  Dim rng As Range
  
  On Error Resume Next
  
  Set rng = Columns(3).SpecialCells(xlCellTypeConstants).EntireRow
  
  If Not rng Is Nothing Then rng.Delete
  
  On Error GoTo 0
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Zeilen löschen
29.11.2010 09:46:48
Manfred
Hallo Sepp,
sorry daß ich erst jetzt Antworte, ich war ab 25.11. im Wochenende.
Das Makro funzt super, vielen Dank für Deine Bemühungen.
Mit freundlichen Grüßen
Manfred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige