Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen löschen, bzw Inhalte entfernen, wenn Bestimmte Bedingung erfülllt
 22.06.2016 10:15:39 moejoe
NotSolved
22.06.2016 10:16:57 Gast24662
NotSolved

Ansicht des Beitrags:
Von:
moejoe		 Datum:
22.06.2016 10:15:39		 Views:
1296		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen löschen, bzw Inhalte entfernen, wenn Bestimmte Bedingung erfülllt		 
<div>Hallo zusammen,</div><div>
</div><div>ich will ein kleines VBSkript schreiben, nach etwas googeln habe ich auch die entsprechenden commands gefunden.</div><div>Allerdings wollen diese im Zusammenspiel nicht funktionieren.</div><div>Ich will, sobald in der Ersten Zeile nichts steht oder "##" dann soll die komplette Zeile gelöscht werden.</div><div>Wenn in der ersten Zeile nur ein "#", dann soll nur der Zelleninhalt gelöscht werden.</div><div>Hier mal mein Code:


</div>

Sub nvloeschen()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Cells(i, 1) = "#" Then Cells(i, 1).ClearContents
        If Cells(t, 1).Value = "" Then Rows(t).Delete Shift:=xlUp
        If Cells(t, 1).Value = "##" Then Rows(t).Delete Shift:=xlUp
    Next i
    Application.ScreenUpdating = True
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
Rot Zeilen löschen, bzw Inhalte entfernen, wenn Bestimmte Bedingung erfülllt
 22.06.2016 10:15:39 moejoe
NotSolved
22.06.2016 10:16:57 Gast24662
NotSolved