Auf ausgeblendete Spalte zugreifen.
23.03.2017 20:58:24
Franky
ich habe eine Datentabelle mit vielen Spalten.
Um mir den Zugriff zu vereinfachen greife ich mit folgendem Code auf die
Spalten via Überschrift zu. Das funktioniert soweit ganz gut.
Nun will ich aber einzelne Spalten ausblenden (zwecks Darauf zugreifendem
Diagramm um Datenreihen auszublenden) Sobald die Spalte aber ausgeblendet
ist kann ich mit Find nicht mehr darauf zugreifen.
Hier der Code:
Sub ReiheHV01E1EB01AusEin()
Ausblenden "Reihe1"
End Sub
Sub Ausblenden(Reihe As String)
Dim Ergebnis As Range
Set Ergebnis = Worksheets("Daten").Rows(1).Find(Reihe, lookat:=xlWhole)
Worksheets("Daten").Columns(Ergebnis.Column).EntireColumn.Hidden = Not Worksheets(" _
Daten").Columns(Ergebnis.Column).EntireColumn.Hidden
'Worksheets("Daten").Columns(40). EntireColumn.Hidden = Not Worksheets(" _
Daten").Columns(40) .EntireColumn.Hidden
End Sub
Kann mir hier jemand nen Tip geben, ich steh auf dem Schlauch.
Grundsätzlich ist das Ziel per Schaltfläche bestimmte Datenreichen
im Diagramm aus und auch wieder einblenden zu können.
Mit Spalten Nr. funktioniert das, aber es kann sein das in die
Datentabelle Spalten eingefügt werden und dann klappt es nicht mehr.
Fanke schon mal für eure Mühe...