Thema Datum  Von Nutzer Rating
Antwort
05.04.2017 13:56:02 RickJJ
Solved
Blau Ganze Zeile löschen wenn B Leer
 05.04.2017 15:09:27 Chris
NotSolved
05.04.2017 15:14:32 Chris
NotSolved

Ansicht des Beitrags:
Von:
Chris		 Datum:
05.04.2017 15:09:27		 Views:
566		 Rating:
     
Antwort:
  Ja
Thema:
Ganze Zeile löschen wenn B Leer

Hallo Rick,

hier kurz den notwendigen Code. Es gibt viele Arten es zu machen.

 

lg,

Chris

Sub SuchTextLoop()
'*Tabelle1 << ersetzen durch deinen Tabellennamen, oder du löschst diese Zeile und aktivierst die Tabelle manuell.
ThisWorkbook.Worksheets("Tabelle1").Activate
Dim i As Integer
Dim SuchText, LetzteZeile As String
LetzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row '2 = B
i = LetzteZeile + 1 'wir fangen unten an und gehen dann hoch, da sich die Zeilen ansonsten immer wieder verschieben
SuchText = "" ' Gebe bitte den Suchbegriff ein. Aktuell sucht er nach leeren Zellen
Do Until i = 1
If Range("B" & i) = SuchText Then
Rows(i).Delete
End If
i = i - 1
Loop
End Sub

 

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
05.04.2017 13:56:02 RickJJ
Solved
Blau Ganze Zeile löschen wenn B Leer
 05.04.2017 15:09:27 Chris
NotSolved
05.04.2017 15:14:32 Chris
NotSolved