Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen abhängig von Datum löschen

Betrifft: Zellen abhängig von Datum löschen von: Peter Wawoczny
Geschrieben am: 16.10.2014 11:47:46

Hallo Liebe Gemeinde.
Ich habe ein Problem, vielleicht kann mir eine von euch helfen.
Ich habe eine Tabelle erstellt wo in Spalte A17 bis A100 ist Datum eingetragen.
In Spalte BCDE 17 bis 100 sind verschiedene Daten eingetragen.
Ich möchte mit einem Makro alle Zeilen in dem Bereich die nicht dem aktuellen Monat entsprächen löschen.
Danke Peter

  

Betrifft: AW: Zellen abhängig von Datum löschen von: Hajo_Zi
Geschrieben am: 16.10.2014 12:03:53

Hallo Peter,

Option Explicit

Sub n()
    Dim I As Long
    For I = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Month(Cells(I, 1)) <> Month(Date) Then Rows(I).Delete
    Next
End Sub
GrußformelHomepage


  

Betrifft: AW: Zellen abhängig von Datum löschen von: Peter Wawoczny
Geschrieben am: 16.10.2014 12:12:46

Danke für schnelle Antwort aber es kommt immer die Meldung "Typen unverträglich". Mach ich was falsch?


  

Betrifft: AW: Zellen abhängig von Datum löschen von: {Boris}
Geschrieben am: 16.10.2014 12:21:01

Hi,

dann steht in irgendeiner Zelle keine DATUM sondern z.B. TEXT. Damit kann die Month-Funktion nix anfangen und beschwert sich dann zurecht mit "Typen unverträglich" ;-)

VG, Boris


  

Betrifft: AW: Zellen abhängig von Datum löschen von: Peter Wawoczny
Geschrieben am: 16.10.2014 12:32:17

Der Bereich der gelöscht sein soll fängt an ab Zeile 17 bis 100


  

Betrifft: AW: Zellen abhängig von Datum löschen von: Hajo_Zi
Geschrieben am: 16.10.2014 12:44:52

jetzt auch angepasst an die Zeilen.

Option Explicit

Sub n()
    '17 bis 100
    Dim I As Long
    For I = 100 To 17 Step -1
        If IsDate(Cells(I, 1)) Then
            If Month(Cells(I, 1)) <> Month(Date) Then Rows(I).Delete
        End If
    Next
End Sub
Gruß Hajo


  

Betrifft: AW: Zellen abhängig von Datum löschen von: Peter Wawoczny
Geschrieben am: 16.10.2014 14:11:01

vielen vielen dank, funkt bestens. peter


  

Betrifft: AW: Zellen abhängig von Datum löschen von: Hajo_Zi
Geschrieben am: 16.10.2014 12:22:27

stehen vielleicht andere Daten als Daten in Spalte A?
Diese Prüfung hatte ich nicht eingebaut.
Nach For
If Isdate(Cells(I, 1)) Then
und end If vor Next

Gruß Hajo


  

Betrifft: AW: Zellen abhängig von Datum löschen von: Matthias L
Geschrieben am: 16.10.2014 12:13:17

Hallo

Sieht so aus als willst Du nur den Zeilenbereich zwischen A(n):BCDE(n) löschen
Bei mir gehts nur bis XFD, kann es also nicht direkt damit testen.

Probier es mal so:

Sub loeschen()
Dim x&
Application.ScreenUpdating = False
For x = 100 To 17 Step -1
 If Month(Cells(x, 1)) <> Month(Date) Then Range(Cells(x, 1), Cells(x, "BCDE")).Delete
Next
End Sub
Allerdings wird da nur der Monat abgefragt, der könnte ja aber auch in einem anderen Jahr sein!

Gruß Matthias


  

Betrifft: AW: Zellen abhängig von Datum löschen von: Peter Wawoczny
Geschrieben am: 16.10.2014 12:24:59

Es kommt immer der gleicher Fehler. ich möchte die kompletten Zeilen/Zellen die nicht dem aktuellen Monat gleich sind entfernen.


 

Beiträge aus den Excel-Beispielen zum Thema "Zellen abhängig von Datum löschen"