Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1716to1720
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

Mit VBA Spalten ein- /ausblenden

Mit VBA Spalten ein- /ausblenden
23.10.2019 16:00:42
Stefan
Hallo liebes Forum,
ich bin gerade etwas am Verzweifeln.
Ausgangssituation:
Ich habe eine Excel Datei erstellt.(Spalte A:Z)
In der ich nun per VBA (ich bin absoluter Anfänger) bestimmte Spalten ein und ausblenden will.
Je nach dem was in Zelle B2 steht..
In Worten:
Wenn in B2 "Agenda" steht, dann zeige mir die Spalten A:M und T:X
Wenn in B2" PROTOKOLL" steht, dann zeige mir die Spalten A:M und N:R
Ich lade einen Dateiversuch mit hoch.
https://www.herber.de/bbs/user/132694.xlsx
Der VBA Code lautet bisher
Private Sub Worksheet_Change(ByVal Target As Range)
' Ist die Aktion überhaupt nötig (Änderung in "B2") ?
If Target.Address = "$B$2" Then
' Nimm den Wert des geänderten Bereiches
Select Case Target.Value
' Vergleiche mit ZAHL, nicht String
Case Agenda
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten n:r aus
Columns("n:r").EntireColumn.Hidden = True
Case Protokoll
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten t:x aus
Columns("t:x").EntireColumn.Hidden = True
End Select
' Setze den Cursor zurück auf "B2"
Target.Select
End If
End Sub

Sub M()
End Sub
Kann mir jemand helfen?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit VBA Spalten ein- /ausblenden
23.10.2019 16:17:20
Armin
Hallo,
so:
Private Sub Worksheet_Change(ByVal Target As Range)
' Ist die Aktion überhaupt nötig (Änderung in "B2") ?
If Target.Address = "$B$2" Then
' Nimm den Wert des geänderten Bereiches
Select Case UCase(Target.Value) 'Ucase ist zwar nicht zwingend aber halt  _
vorsichtshalber
' Vergleiche mit ZAHL, nicht String
Case "AGENDA"
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten n:r aus
Columns("n:r").EntireColumn.Hidden = True
Case "PROTOKOLL"
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten t:x aus
Columns("t:x").EntireColumn.Hidden = True
End Select
' Setze den Cursor zurück auf "B2"
Target.Select
End If
End Sub
Gruß Armin
Anzeige
AW: Mit VBA Spalten ein- /ausblenden
23.10.2019 16:23:28
Werner
Hallo Stefan,
so:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B2" Then
Columns.Hidden = False
Columns("M:Q").Hidden = Target = "AGENDA"
Columns("R:V").Hidden = Target = "PROTOKOLL"
Columns("X:X").Hidden = Target = "PROTOKOLL"
End If
End Sub
Gruß Werner
AW: Mit VBA Spalten ein- /ausblenden
23.10.2019 17:32:53
Stefan
juhu funktioniert.
besten Dank :-)
Gerne u. Danke für die Rückmeldung. o.w.T.
23.10.2019 18:39:52
Werner

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige