Thema Datum  Von Nutzer Rating
Antwort
Rot Leere Zeilen am Ende eines Bereiches löschen
 26.01.2022 11:31:57 Gast31385
NotSolved
26.01.2022 13:04:46 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast31385		 Datum:
26.01.2022 11:31:57		 Views:
542		 Rating:
     
Antwort:
  Ja
Thema:
Leere Zeilen am Ende eines Bereiches löschen

Hallo zusammen,

ich habe ein Problemchen.
Ich möchte am Ende eine UsedRange die leeren Zeilen löschen.

Wenn ich das mit dem Code unten mache löscht dieser mir ja alle leeren Zeilen. Ich möchte aber die letzet genutzte finden und ab da alle leeren löschen

Dim Zeile As Long
Dim ZeileMax As Long

With ActiveSheet
ZeileMax = .UsedRange.Rows.Count
For Zeile = ZeileMax To 1 Step -1
If .Cells(Zeile, 1).Value = "" Then
.Rows(Zeile).Delete
End If
Next Zeile
End With
End Sub
 

Gruss Bertl

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Leere Zeilen am Ende eines Bereiches löschen
 26.01.2022 11:31:57 Gast31385
NotSolved
26.01.2022 13:04:46 Mase
NotSolved