Thema Datum  Von Nutzer Rating
Antwort
14.04.2011 17:48:17 LaVey
Solved
14.04.2011 19:50:11 Gast39493
Solved
Rot Datumsfilter in VBA
 14.04.2011 19:51:10 Severus
Solved
15.04.2011 16:35:05 Gast56215
Solved
15.04.2011 16:35:40 LaVey
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
14.04.2011 19:51:10		 Views:
1030		 Rating:
     
Antwort:
 Nein
Thema:
Datumsfilter in VBA

Versuch mal 

Option Explicit

Private Sub ZellenAusblenden()
Dim lngLetzteZeile As Long
Dim lngLaufZahl As Long
Dim datVon As Date
Dim datBis As Date

With ActiveSheet
    lngLetzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
    If Not IsDate(.Range("B8")) Or Not IsDate(.Range("D8")) Then
        If Not IsDate(.Range("B8")) Then
            MsgBox "Die Zelle B8 enthält kein Datum! Das Programm wird abgebrochen", vbCritical, "Fehler..."
        ElseIf Not IsDate(.Range("D8")) Then
            MsgBox "Die Zelle D8 enthält kein Datum! Das Programm wird abgebrochen", vbCritical, "Fehler..."
        End If
    End If
    
    datVon = .Range("B8")
    datBis = .Range("D8")
    
    For lngLaufZahl = 12 To lngLetzteZeile
        If IsDate(.Cells(lngLaufZahl, 1)) Then
            If .Cells(lngLaufZahl, 1) < datVon Or .Cells(lngLaufZahl, 1) > datBis Then
                .Cells(lngLaufZahl, 1).EntireRow.Hidden = True
            Else
                .Cells(lngLaufZahl, 1).EntireRow.Hidden = False
            End If
        Else
            MsgBox "Die Zelle A" & CStr(lngLaufZahl) & " enthält kein Datum!" & Chr(10) _
            & "Das Programm kann keine der zugeordneten Aktionen durchführen.", vbCritical, "Fehler..."
        End If
    Next lngLaufZahl
End With
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
14.04.2011 17:48:17 LaVey
Solved
14.04.2011 19:50:11 Gast39493
Solved
Rot Datumsfilter in VBA
 14.04.2011 19:51:10 Severus
Solved
15.04.2011 16:35:05 Gast56215
Solved
15.04.2011 16:35:40 LaVey
Solved