Spalte ausblenden + folgespalten einzeln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Select Case Target.Address Case "$M$1" 'setz voraus Spalte M ist sichtbar. nur in die erste Zeile der Spalte Target.EntireColumn.Hidden = True Target.Offset(0, 1).EntireColumn.Hidden = False 'nächste Spalte Case "$N$1" Target.EntireColumn.Hidden = True Target.Offset(0, -1).EntireColumn.Hidden = False 'vorige Spalte End Select End Sub

Sub HideNextColumn() Dim objCol As Range For Each objCol In Range("M:XFD").Columns 'Ggf. Das Ende früher als in Spalte XFD _ definieren. If objCol.Hidden = False Then objCol.Hidden = True Exit Sub End If Next 'Hier kann stehen, was passiert, wenn alle Spalten ab M:M ausgeblendet sind. End Sub

@ Bernd: ja das ist nicht so das was ich wollte.
@ Yal: bei deiner Variante gibt er mir einen "Laufzeitfehler 1004 - objektdefinierter Fehler" an bei
"s2 = Not .Cells(1, i + 1).EntireColumn.Hidden"
@ Hendrik: Das ist genau das was ich suchte als Möglichkeit
Damit kann jede Spalte (und dem Spaltenbereich indivduell festlegbar) um den es sich handelt im einzelnen per Buttonklick nacheinander ausgeblendet werden. :-)
Da ich dies anders rum auch machen wollte hatte ich die Argumente "True" & "False" einfach getauscht.
Aber wie schon vermutet fängt er vorne wieder bei M an einzublenden.
Die Einblendungsreihenfolge sollte aber dort anfangen welche zuletzt ausgeblendet wurde.
Bsp: ich habe M - P ausgeblendet und sehe nur noch Q, R S, T, ect.
Und wenn ich auf den Einblenden Button klicke soll er erst Spalte P, dann O & dann N wieder einblendet werden.Ich vermute dies wird nicht so einfach zu bewerkstelligen sein da irgendwie eine Variable fehlt welche mir sagt welche breits ein- bzw. ausgeblendet sind ?!

Ok. Zwei Fehler von mir
_ 16384 soll 16383 werden (bereit erwähnt)
_ Hidden = False soll Hidden = True werden
Und eine Verständnis-Fehler: Start-Zustand ist: gar keine Spalte ist ausgeblendet

Public Sub ErsteNichtAusgeblendet_ausblenden()
Dim i, s1, s2
' M = 13
With Worksheets("Tabelle1")
For i = 13 To 16383 '16384
s1 = .Cells(1, i).EntireColumn.Hidden
s2 = Not .Cells(1, i + 1).EntireColumn.Hidden
If s1 And s2 Then
.Cells(1, i + 1).EntireColumn.Hidden = True 'False
Exit Sub
End If
Next i
End With
'Wenn nichts augeblendet ist, soll M ausgeblendet werden
Worksheets("Tabelle1").Range("M1").EntireColumn.Hidden = True
End Sub

Rückwärts sieht sehr ähnlich aus

Public Sub Rueckwaerts()
Dim i, s1, s2
' M = 13
With Worksheets("Tabelle1")
For i = 13 To 16383
s1 = .Cells(1, i).EntireColumn.Hidden
s2 = Not .Cells(1, i + 1).EntireColumn.Hidden
If s1 And s2 Then
.Cells(1, i).EntireColumn.Hidden = False
Exit Sub
End If
Next i
End With
End Sub

Kannst Du die Unterschied sehen?
Viel Erfolg
Yal

Sub ShowLastColumn() Dim objCol As Range For Each objCol In Range("M:XFD").Columns 'Ggf. Das Ende früher als in Spalte XFD _ definieren. If objCol.Hidden = False Then objCol(0).Hidden = False Exit Sub End If Next 'Hier kann stehen, was passiert, wenn alle Spalten zwischen Spalte M und Spalte XFD _ eingeblendet sind. End Sub Sub HideNextColumn() Dim objCol As Range For Each objCol In Range("M:XFD").Columns 'Ggf. Das Ende früher als in Spalte XFD _ definieren. If objCol.Hidden = False Then objCol.Hidden = True Exit Sub End If Next 'Hier kann stehen, was passiert, wenn alle Spalten ab M:M ausgeblendet sind. End Sub

Public Sub ErsteNichtAusgeblendet_ausblenden() Dim i, s1, s2 ' M = 13 With Worksheets("Tabelle1") For i = 13 To 16384 s1 = .Cells(1, i).EntireColumn.Hidden s2 = Not .Cells(1, i + 1).EntireColumn.Hidden If s1 And s2 Then .Cells(1, i + 1).EntireColumn.Hidden = True Exit Sub End If Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

Spalte ausblenden + folgespalten einzeln

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte ausblenden + folgespalten einzeln

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread