|
<p> Hallo,</p> <p> als VBA-Anfänger brauche ich nach mehreren Stunden Googeln Hilfe.</p> <p> 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.</p> <p> Ü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.</p> <p> Mein Prolbem ist folgendes: Wir kann ich die Abarbeitung auslösen,</p> <p> - aus einem anderen Tabellenblatt, wenn ich dort Änderungen vornehme,</p> <p> - aus einem Diagramm, wenn ich in diesem über Formularsteuerelemente im Sheet "Auswertung" Änderungen vornehme?</p> <p> 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.</p> <p> </p> <p> Sub Spalten_ausblenden()<br /> <br /> Dim lngVorWerten As Long<br /> Dim lngNachWerten As Long<br /> Dim wksA As Worksheet<br /> <br /> Set wksA = ActiveSheet<br /> <br /> lngVorWerten = Worksheets("Auswertung").Cells(3, 2).Value - 1<br /> lngNachWerten = Worksheets("Auswertung").Cells(3, 3).Value + 1<br /> <br /> ' blendet alle Spalten ein<br /> Cells.EntireColumn.Hidden = False</p> <p> <br /> ' blendet Spalte D-lngVorWerten aus<br /> wksA.Range(wksA.Columns(4), wksA.Columns(lngVorWerten)).EntireColumn.Hidden = True</p> <p> <br /> ' blendet Spalte lngNachWerten bis Spalte BW aus<br /> wksA.Range(wksA.Columns(lngNachWerten), wksA.Columns(75)).EntireColumn.Hidden = True<br /> <br /> End Sub</p> <p> </p> <p> Fü Hilfe wäre ich sehr dankbar!</p> <p> </p> <p> R2D2</p>
|