Makro
08.11.2005 08:59:00
Dominik
habe folgendes Makro
Sub Makro1()
' Makro2 Makro
' Makro am 04.11.2005 von Windows User aufgezeichnet
Range("a1").Select ' dies nur damit die Zelle 1 angewählt wird und es keine Fehlermeldung gibt, faölls man gerade das Diagramm angewählt hat
anzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'für die Schleife wird hier abgefragt, wievile Einträge für die Grafik es gibt
' hier wird nur das Diagramm und die Linie ausgewählt
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(1).Select
'hier die Schleife, die nacheinander jeden Datenpunkt anspringt (Points(n).select)
For n = 1 To anzahl
On Error GoTo ende 'Fehlerunterdrückung
ActiveChart.SeriesCollection(1).Points(n).Select
' hier die eigentliche Steuerung mittels Kriterium, gebildet aus der Hilfsspalte und der Eingabe des Monats im Feld i1
If Sheets("Tabelle1").Cells(n + 1, 3).Value = Sheets("Tabelle1").Range("i1").Value Then
' ja Zweig mit Umstellung der Farbe und zusätzlich noch der Größe des Datenpunktes
With Selection
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
.MarkerSize = 8
End With
Else
' nein-Zweig, alles wird wieder zurückgestellt
With Selection
.MarkerBackgroundColorIndex = 5
.MarkerForegroundColorIndex = xlNone
.MarkerSize = 7
End With
End If
Next
ende:
Range("i1").Select
End Sub
Problem ist, dass ich mehrere Arbeitsblätter habe. Ich möchte gern, dass ich einmal klick und es dann für alle Arbeitsblätter ausgeführt wird.
Könnt ihr mir helfen?
Danke!
Gruss