Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden

Forumthread: Spalten ausblenden

Spalten ausblenden
27.09.2016 15:07:32
Hans
Hallo, ich möchte in einer Zelle auf Tabellenblatt 2 Buchstaben eintragen, deren zugehörige Spalte dann auf Tabellenblatt 1 verschwindet. Beispiel: Ich trage in der Zelle "ACDG" ein und auf Tabellenblatt 1 verschwindet Spalte A,C,D,G. Kann mir jemand helfen ? Vielen Dank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden
27.09.2016 16:06:31
ChrisL
Hi Hans
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim i As Long
Set WS1 = Worksheets("Tabelle1")
Set WS2 = Worksheets("Tabelle2")
For i = 1 To Len(WS2.Range("A1"))
WS1.Columns(Mid(WS2.Range("A1"), i, 1)).Hidden = True
Next i
End Sub

cu
Chris
Anzeige
AW: Spalten ausblenden
27.09.2016 16:21:31
UweD
Hallo
wenn es über die Spalte Z hinausgeht,
dann so...
In der Zelle steht z.B. A;D;F;AA;G
Sub Ausblenden2()
    Dim TB1, TB2, Arr, Trenner As String, i As Integer
    Set TB1 = Sheets("Tabelle1")
    Set TB2 = Sheets("Tabelle2")
    Trenner = ";"
    TB1.Cells.EntireColumn.Hidden = False
    Arr = Split(TB2.Cells(1, 1), Trenner)
    For i = 0 To Ubound(Arr)
        TB1.Columns(Arr(i)).EntireColumn.Hidden = True
    Next
End Sub
LG UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige