Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nur monats suche

Forumthread: nur monats suche

nur monats suche
02.05.2007 20:48:24
ralf
hallo forum
habe in spalte o datum stehen (mmmyy) jetzt versuche ich über einen cmdButton
zum beispiel mir alle mit jan anzeigen zu lassen.was aber leider nicht klappt.
kann mir jemand helfen.
gruß ralf

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur monats suche
02.05.2007 21:09:24
Josef
Hallo Ralf,
das geht z.B. so.
Private Sub CommandButton1_Click()
Dim rng As Range
Dim intM As Integer
Dim lngL As Long, lngR As Long

intM = Application.InputBox("Bitte Monat eingeben:", "Monat", Month(Date), Type:=1)

If intM = 0 Then Exit Sub

If intM > 12 Then intM = 12

On Error Resume Next

Application.ScreenUpdating = False

Range("O:O").EntireRow.Hidden = False

For Each rng In Range("O2:O" & Cells(Rows.Count, 15).End(xlUp).Row)
    If IsDate(rng) Then
        If Month(rng) <> intM Then rng.EntireRow.Hidden = True
    Else
        rng.EntireRow.Hidden = True
    End If
Next

Application.ScreenUpdating = True
End Sub

Alternativ könntest du eine Hilfsspalte einfügen, mit der Formel "=MONAT(O2)" und die Spalte per Autofilter filtern.
Gruß Sepp

Anzeige
AW: nur monats suche
02.05.2007 21:26:11
ralf
hallo sepp
tausend dank für deine mühe !!! werde es sofort ausprobieren
nochmal tausend dank
gruß ralf
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige