Hallo,

als VBA-Anfänger brauche ich nach mehrer Stunden Googeln Hilf.

Ich habe in einem Tabellenblatt ("Auswertung") zwischen den Spalten D und BW einen variabelen Bereich mit Spalten, der Werte enthält. Nun möchte ich die Spalten im Bereich D bis BW, die vor dem Wertebereich und dahinter liegen ausblenden. Z.B. liegen die Wertespalten von F bis AG, möchte ich die Spalten davor (D bis E) und danach (AH bis BW) ausblenden.

Über eine Hilfszeile (3) cheke ich, ob die Spalte Werte enthält. In Zelle (3,2) wird die erste Spalte mit Werten angegeben, in Zelle (3,3) die letzte Spalte mit Werten. U.g. Kode funtioniert, aber nur, wenn ich ihn aus dem geöffneten Worksheet "Auswertung" aufrufe.

Mein Prolbem ist folgendes: Wir kann ich die Abarbeitung auslösen,

  - aus einem anderen Tabellenblatt, wenn ich dort Änderungen vornehme,

 - aus einem Diagramm, wenn ich in diesem über Formularsteuerelemente im Sheet "Auswertung"  Änderungen vornehme?

Falls möglich, wäre es mir lieb, wenn das Ausblenden der Spalten in "Auswertung" im Hintergrund läuft, ohne dass dieses sichtbar (!) geöffnet wird. Danach soll das Diagramm, welches auf "Auswertung" basiert, bzw. das Tabellenblatt, aus dem ich die "Spalten ausblenden" angstoßen habe, aktualisiert werden.

Sub Spalten_ausblenden()

Dim lngVorWerten As Long
Dim lngNachWerten As Long
Dim wksA As Worksheet

Set wksA = ActiveSheet

lngVorWerten = Worksheets("Auswertung").Cells(3, 2).Value - 1
lngNachWerten = Worksheets("Auswertung").Cells(3, 3).Value + 1
    
    ' blendet alle Spalten ein
 Cells.EntireColumn.Hidden = False

    ' blendet Spalte D-lngVorWerten aus
 wksA.Range(wksA.Columns(4), wksA.Columns(lngVorWerten)).EntireColumn.Hidden = True

    ' blendet Spalte lngNachWerten bis Spalte BW aus
 wksA.Range(wksA.Columns(lngNachWerten), wksA.Columns(75)).EntireColumn.Hidden = True
 
End Sub

Fü Hilfe wäre icch sehr dankbar!

R2D2