Thema Datum  Von Nutzer Rating
Antwort
06.06.2020 15:22:00 Alex
NotSolved
Blau Nach Datum in Spalte suchen und Zellen löschen
 06.06.2020 16:55:22 Gast84468
NotSolved
06.06.2020 18:22:19 Gast74367
NotSolved
06.06.2020 18:17:20 Alex
NotSolved

Ansicht des Beitrags:
Von:
Gast84468		 Datum:
06.06.2020 16:55:22		 Views:
691		 Rating:
     
Antwort:
  Ja
Thema:
Nach Datum in Spalte suchen und Zellen löschen
Sub Zellen_löschen()
Dim c As Range
    For Each c In Intersect(ActiveSheet.UsedRange.Cells, Columns(1))
        If InStr(LCase(c.Value), "30.03.") <> 0 Then
            Range(c, c.Offset(0, 1)).ClearContents
        End If
    Next c
End Sub
 
Soweit bin ich, aber hier werden ja nun alle Zellen mit dem Datum gelöscht. Bzw. Sie werden nicht gelöscht, sondern nur der Inhalt wird gelöscht. 

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
06.06.2020 15:22:00 Alex
NotSolved
Blau Nach Datum in Spalte suchen und Zellen löschen
 06.06.2020 16:55:22 Gast84468
NotSolved
06.06.2020 18:22:19 Gast74367
NotSolved
06.06.2020 18:17:20 Alex
NotSolved