ich verwende folgendes Makro.
Dieses funktioniert solange der Wert gefunden wird.
Wenn der Wert nicht gefunden wird soll auf dem nächsten Arbeitsblatt wieder gesucht werden. Leider bekomme ich so immer einen Laufzeitfehler, wenn der Wert nicht gefunden wird, oder das Makro sucht unendlich.
sub markieren ()
Info = MsgBox("Soll die letzte Partienummer der letzten PÜ markiert werden ?", vbYesNo, "Abfrage der Partienummer")
If Info = 7 Then GoTo Ende
Nummer = InputBox("Hier letzte Partienummer der letzten PÜ eingeben", "Partienummer eingeben")
Sheets("DiagTab").Select
Range("H1").Select
ActiveCell.Value = Nummer
Partie = ActiveCell.Value
For i = 1 To intAnzahl
Zahl = i
Sheets("Tab" & Zahl).Activate
Range("A1").Select
While ActiveCell <> Partie
ActiveCell.Offset(1, 0).Activate
Wend
ActiveCell.Offset(0, 1).Activate
Wert = ActiveCell.Row - 6
Range("A1").Select
Sheets("DiagTab").Select
ActiveSheet.ChartObjects("Diagramm " & Zahl).Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(Wert).Select
With Selection.Border
.ColorIndex = 1
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = 3
.MarkerForegroundColorIndex = 3
.MarkerStyle = xlX
.MarkerSize = 5
.Shadow = False
End With
Next
Ende:
End Sub
Im voraus Danke
Roland