Vielen Dank H27!
Könnest du mir noch dabei helfen?
Sub GetShapePropertiesSomeWs4()
Dim sShapes As Shape
Dim wsLoop As Worksheet
Dim l As Long
'Loop through all Worksheet
For Each wsLoop In Worksheets
Select Case UCase(wsLoop.Name)
Case "PLCP"
For Each sShapes In wsLoop.Shapes
If sShapes.Name Like "Scale_*" Then
l = Worksheets("PLCP").Range("F1:F1000").Find(sShape.Name, Range("F1"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Row
Worksheets("PLCP").Shapes(sShapes.Name).Chart.SetSourceData Source:=Union(Range(Cells(l + 1, 5), Cells(l + 31, 6)), Range(Cells(l + 1, 8), Cells(l + 31, 37)))
End If
Next sShapes
End Select
Next wsLoop
End Sub
Leider Function Find kann irgendwie mit sShape.Name zurechtkommen.
Wenn ich ein konkretes Beispiel von dem Shapes nehme und schreibe statt Find(sShape.Name... ) Find("Scale_Risk"...) die Funktion wird es finden.
Ich würde Dir sehr dankbar für die Hilfe.
|