Thema Datum  Von Nutzer Rating
Antwort
29.03.2018 14:49:13 Max
NotSolved
29.03.2018 17:24:40 Mackie
NotSolved
Rot Bedingte Zeilenlöschung
29.03.2018 22:17:40 Gast15958
NotSolved

Ansicht des Beitrags:
Von:
Gast15958		 Datum:
29.03.2018 22:17:40		 Views:
529		 Rating:
     
Antwort:
  Ja
Thema:
Bedingte Zeilenlöschung 
Sub Zeilenlöschung()

vonZeile = 6 ' die erste Zeile 
bisZeile = Cells(vonZeile, 1).End(xlDown).Row ' letzte Zeile 
threshold= "#1/1/2013#" 

For Zeile = bisZeile To vonZeile Step -1 
If IsEmpty(Cells(Zeile, 14)) = True And IsEmpty(Cells(Zeile, 16)) = True And Cells(Zeile, 9).Value < threshold Then Rows(Zeile).Delete Shift:=xlUp 
End If 
Next Zeile 
MsgBox "Bereinigung durchgeführt!" 
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
29.03.2018 14:49:13 Max
NotSolved
29.03.2018 17:24:40 Mackie
NotSolved
Rot Bedingte Zeilenlöschung
29.03.2018 22:17:40 Gast15958
NotSolved