Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1076to1080
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
Inhaltsverzeichnis

Kolonnen laut Kriteria verstecken

Kolonnen laut Kriteria verstecken
29.05.2009 12:15:48
Deister
Hallo,
Wenn der Wert in einer Zelle von Kolonne B8:B328 nicht gleich dem Wert in Zelle B4 ist, wird die betroffene Reihe versteckt. Das kappt mit folgender Schleife.

Sub testtest()
Dim StrWert As String
Application.ScreenUpdating = False
StrWert = Range("B4").Value2
For I = 8 To 328
If Range("B" & I).Value2 = StrWert Then
Rows(I & ":" & I).RowHeight = 12.75
Else
If Rows(I & ":" & I).RowHeight = 0 Then
Else
Rows(I & ":" & I).RowHeight = 0
End If
End If
Next I
Application.ScreenUpdating = True
End Sub


Nun möchte ich aber zusätzlich in einer anderen Tabelle Kolonnen auf die gleiche Art und Weise verstecken. Ich beisse mir die Zähne aber an der Schleife aus. Folgendes sind die Angaben.


Sub testtesttest()
If Range("B4") = Range("E4") Then
Columns("E:F").ColumnWidth = 5.43
Columns("G:G").ColumnWidth = 1.14
Else
Columns("E:G").ColumnWidth = 0
End If
If Range("B4") = Range("H4") Then
Columns("H:I").ColumnWidth = 5.43
Columns("J:J").ColumnWidth = 1.14
Else
Columns("H:J").ColumnWidth = 0
End If
If Range("B4") = Range("K4") Then
Columns("K:L").ColumnWidth = 5.43
Columns("M:M").ColumnWidth = 1.14
Else
Columns("K:M").ColumnWidth = 0
End If
bis zu
If Range("B4") = Range("IH4") Then
Columns("IH:II").ColumnWidth = 5.43
Columns("IJ:IJ").ColumnWidth = 1.14
Else
Columns("IH:IJ").ColumnWidth = 0
End If
End Sub


Kann mir bitte jemand hier mit einer ähnlichen Schleife wie in dem Beispiel testtest weiter helfen.
Gruss
Ant

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kolonnen laut Kriteria verstecken
29.05.2009 15:56:39
fcs
Hallo Ant,
statt die Höhe der Zeilen bzw. Breite der Spalten auf 0 zu setzen solltest du die entsprechenden Zeilen bzw. Spalten ein- bzw. auslenden.
Gruß
Franz

Sub Zeilen_Ein_Aus_Blenden()
Dim StrWert As String, I As Long
Application.ScreenUpdating = False
StrWert = Range("B4").Value2
Range(Rows(8), Rows(338)).EntireRow.RowHeight = 12.75
For I = 8 To 328
'Werte in Zeile Spalte B (2) mit Wert in Zelle B4 vergleichen
If Cells(I, 2).Value2 = StrWert Then
Rows(I).Hidden = False
Else
Rows(I).Hidden = True
End If
Next I
Application.ScreenUpdating = True
End Sub
Sub Spaltenbreiten()
Dim spalte As Long
'Spaltenbreiten ab Spalte E (5) einstellen
For spalte = 5 To Columns.Count Step 3
Range(Columns(spalte), Columns(spalte + 1)).EntireColumn.ColumnWidth = 5.43
Columns(spalte + 2).ColumnWidth = 1.14
Next
End Sub
Sub Spalten_Ein_Aus_Blenden()
Dim spalte As Long
For spalte = 5 To Columns.Count Step 3
'Werte in Spalte, Zeile 4 mit Wert in Zelle B4 vergleichen
If Cells(4, 2) = Cells(4, spalte) Then
Range(Columns(spalte), Columns(spalte + 2)).EntireColumn.Hidden = False
Else
Range(Columns(spalte), Columns(spalte + 2)).EntireColumn.Hidden = True
End If
Next
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige