Thema Datum  Von Nutzer Rating
Antwort
15.10.2015 13:50:03 Hendrik
NotSolved
15.10.2015 14:21:12 BigBen
NotSolved
Rot Zeile Löschen nachdem Zelleninhalt geprüft wurde
 15.10.2015 14:27:16 BigBen
NotSolved
15.10.2015 14:41:52 Hendrik
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
15.10.2015 14:27:16		 Views:
1441		 Rating:
     
Antwort:
  Ja
Thema:
Zeile Löschen nachdem Zelleninhalt geprüft wurde

Hallo,

beim Testen fiel mir auf, dass beim ersten Entwurf die Zellen zum Teil von rechts verschoben werden.

Bei diesem Entwurf werden die Zellen immer von unten nachgerückt:

Sub DeleteEmptyRowsinSelection()

    Dim AnzZeilen As Integer
    Dim rngDelete As Range
    Dim rngRow As Range
    Dim rng As Range
    Dim bEmpty As Boolean
    
    For Each rngRow In Selection.Rows
        bEmpty = True
        For Each rng In rngRow.Cells
            bEmpty = bEmpty And rng.Value = ""
        Next
        If bEmpty Then
            If rngDelete Is Nothing Then
                Set rngDelete = rngRow
            Else
                Set rngDelete = Union(rngDelete, rngRow)
            End If
        End If
    Next
    If Not rngDelete Is Nothing Then
        rngDelete.Delete xlShiftUp
    End If
End Sub

VG, BigBen

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
15.10.2015 13:50:03 Hendrik
NotSolved
15.10.2015 14:21:12 BigBen
NotSolved
Rot Zeile Löschen nachdem Zelleninhalt geprüft wurde
 15.10.2015 14:27:16 BigBen
NotSolved
15.10.2015 14:41:52 Hendrik
NotSolved