Thema Datum  Von Nutzer Rating
Antwort
15.10.2015 13:50:03 Hendrik
NotSolved
Blau Zeile Löschen nachdem Zelleninhalt geprüft wurde
 15.10.2015 14:21:12 BigBen
NotSolved
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:21:12		 Views:
1450		 Rating:
     
Antwort:
  Ja
Thema:
Zeile Löschen nachdem Zelleninhalt geprüft wurde

Hallo,

auf die Schnelle ist mir folgende Lösung eingefallen:

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