Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige