Zeilen ausblenden wenn...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
ich habe mittlerweile einen ähnlichen Code gefunden, wie ich ihn brauche. Nur leider habe ich das Problem, dass er mir bei dem Beispiel nur die exakte Übereinstimmung anzeigt. Ich habe schon versucht den Code umzubasteln aber ich kriegs nicht hin.
Private Sub Worksheet_Change(ByVal Target As Range) Dim rngi As Range Dim sFirsti As Variant Dim iCnti As Long Dim arrRowsi() As Long If Target.Address = "$B$2" Then Application.ScreenUpdating = False Range("B4:B200").Rows.Hidden = False If [B2] = "" Then Application.ScreenUpdating = True: Exit Sub Set rngi = Range("B4:B200").Find(What:=[B2], LookIn:=xlValues, lookat:=xlPart) If Not rngi Is Nothing Then sFirsti = rngi.Address ReDim Preserve arrRowsi(iCnti) arrRowsi(iCnti) = rngi.Row iCnti = iCnti + 1 Do Set rngi = Range("B4:B200").FindNext(after:=rngi) If rngi.Address = sFirsti Then Exit Do ReDim Preserve arrRowsi(iCnti) arrRowsi(iCnti) = rngi.Row iCnti = iCnti + 1 Loop Range("B4:B200").Rows.Hidden = True For iCnti = 0 To UBound(arrRowsi) Rows(arrRowsi(iCnti)).Hidden = False Next End If End If Range("B2").Select Application.ScreenUpdating = True End Sub

Ich habe schon versucht die Range("B4:B400") in ein MONTH() zu packen, aber dann passiert irgendwie gar nichts. Hat jemand eine Idee?

Hallo
Warum sollte das nicht funktionieren ?
Vorher
Tabelle1

	A	B
1	1
2
3
4		01.01.2008
5		05.01.2008
6		01.03.3008
7		01.01.2008
8		01.08.2008
9		01.09.2008
10		01.11.2008
11		01.01.2008
12
13
14

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Nachher
Tabelle1

	A	B
1	1
2
3
4		01.01.2008
5		05.01.2008
7		01.01.2008
11		01.01.2008

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Allerdings hatte ich im ersten Code auf die Schnelle einen Verschreiber drinn :-)
Hier der korrekte Code

Option Explicit

Sub Beweis()
    Dim i As Long, sortCol As Long
    'Spalte B
    sortCol = 2
    Application.ScreenUpdating = False
    For i = 200 To 4 Step -1
        If Month(Cells(i, sortCol)) <> Range("A1") Then
            Rows(i).Hidden = True
        Else
            Rows(i).Hidden = False
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Gruss Rainer

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim zz As Long, rngA As Range, rngV As Range If Target.Address "$A$1" Then Exit Sub For zz = 4 To Evaluate("MAX((B4:B65535"""")*ROW(B4:B65535))") If Format(Cells(zz, 2), "MMMM") = Cells(1, 1) Then If rngA Is Nothing Then Set rngA = Cells(zz, 1) Else Set rngA = Union(rngA, Cells(zz, 1)) End If Else If rngV Is Nothing Then Set rngV = Cells(zz, 1) Else Set rngV = Union(rngV, Cells(zz, 1)) End If End If Next zz If Not rngA Is Nothing Then rngA.EntireRow.Hidden = False If Not rngV Is Nothing Then rngV.EntireRow.Hidden = True End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen ausblenden wenn...

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread