Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 16:22:58
Pivot
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige