Forums Neueste Beiträge
 

Bestimmte Arbeitsblätter per Makro ansprechen

22/10/2008 - 09:07 von thomas müller | Report spam
Hallo,

wie kann ich z.B. Arbeitsblatt 1, 2 und 3 mit einem Makro ansprechen.
Bis jetzt mache ich es für jedes Blatt so (ist aber etwas aufwàndig):

Set chDiagramm = Worksheets("V1a
Regionaldirektionen").ChartObjects("Diagramm 15").Chart
Application.ScreenUpdating = False
With chDiagramm
For inReihe = 1 To .SeriesCollection.Count
With .SeriesCollection(inReihe)
arrWerte() = .Values
For inPunkt = 1 To .Points.Count
Select Case arrWerte(inPunkt)
Case Is <= 2.29
.Points(inPunkt).Interior.Color = RGB(5,
255, 100)
Case 2.3 To 3.49
.Points(inPunkt).Interior.Color = RGB(235,
230, 0)
Case Is >= 3.5
.Points(inPunkt).Interior.Color = RGB(255, 0, 0)
End Select
Next inPunkt
End With
Next inReihe
End With
Application.ScreenUpdating = True
Set chDiagramm = Nothing


Wie kann ich für "V1a Regionaldirektionen" z.B. gleich alle betreffenden
Blàtter also z.B. 1, 2 und 3 eintragen? Mit einer bloßen Aufzàhlung
funktioniert es nicht.

Danke

thomas
 

Lesen sie die antworten

#1 Martin Worm
22/10/2008 - 18:57 | Warnen spam
Am Wed, 22 Oct 2008 09:07:13 +0200,schrieb thomas müller:

hallo,

wie kann ich z.B. Arbeitsblatt 1, 2 und 3 mit einem Makro ansprechen.

Wie kann ich für "V1a Regionaldirektionen" z.B. gleich alle betreffenden
Blàtter also z.B. 1, 2 und 3 eintragen? Mit einer bloßen Aufzàhlung
funktioniert es nicht.



vielleicht gehts ja so:

Dim Blatt As Worksheet
For Each Blatt In Worksheets(Array("Tabelle1", _
"Tabelle2", "Tabelle3"))

'hier dein Code

Next Blatt

Worksheets("V1a Regionaldirektionen") durch Blatt ersetzen

Tabelle1,Tabelle2,Tabelle3 durch deine Blattnamen ersetzen


hth
mit freundlichen Grüßen

Martin Worm
benutze XL 2000 und Win XP SpX

Ähnliche fragen