Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Spalten ein- und ausblenden mit VBA
Marko
Hallo in die Runde,
Mein Ziel ist, Spalten in Abhängigkeit eines Zelleintrages (D4:AC4) auszublenden. Das soll nach der Dateneingabe geschehen, durch Setzen eines Hakens in einer Checkbox. Für Nachbearbeitung sollen selbsverständlich die ausgeblendeten Zellen wieder einblendbar sein (Deaktivierung der Checkbox).
Mit
Dim rng As Range
Application.ScreenUpdating = 0
For Each rng In Range("D4:AC4")
Columns("D:AC").Hidden = CheckBox1.Value
Next
Application.ScreenUpdating = -1
End Sub

werden zwar die Spalten des Bereiches D:AC ausgeblendet und bei Deaktivierung wieder eingeblendet, aber auch die Spalten, die durch einen Eintrag im Bereich D4:AC4 sichtbar bleiben sollten.
Mit
Private Sub CheckBox1_Click()
Dim rng As Range
Application.ScreenUpdating = 0
For Each rng In Range("D4:AC4")
rng.EntireColumn.Hidden = rng.Value = ""
Next
Application.ScreenUpdating = -1
End Sub

bleiben die Spalten der ausgefüllten Zellen (D4:AC4) sichtbar, aber die ausgeblendeten Spalten werden bei Deaktivierung der Checkbox nicht wieder eingeblendet.
Sind die beiden Codes kombinierbar oder gibt es einen einfachere Lösung?
Gruß Marko

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalten ein- und ausblenden mit VBA
18.07.2012 18:37:20
Ramses
Hallo
das ganze müsste so lauten
Private Sub CheckBox1_Click()
Dim rng As Range
Application.ScreenUpdating = False
If CheckBox1 = True Then
For Each rng In Range("D4:AC4")
If IsEmpty(rng) Then
Columns(rng.Column).Hidden = CheckBox1
End If
Next rng
Else
Columns("D:AC").Hidden = CheckBox1
End If
Application.ScreenUpdating = True
End Sub
Gruss Rainer
AW: Spalten ein- und ausblenden mit VBA
19.07.2012 08:10:37
Marko
Perfekt. Herzlichen Dank.
Gruß Marko
Anzeige

355 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige