VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Shapes mit bestimmter Name ansprechen	11.02.2014 10:42:53	Matt
Shapes mit bestimmter Name ansprechen	11.02.2014 19:50:49	H27
Shapes mit bestimmter Name ansprechen	19.02.2014 18:56:59	Gast75049
Shapes mit bestimmter Name ansprechen	19.02.2014 20:19:43	Gast65132
Shapes mit bestimmter Name ansprechen	25.02.2014 08:02:15	Mattvon
Shapes mit bestimmter Name ansprechen	25.02.2014 09:46:04	MattVan

Ansicht des Beitrags:

Von:
MattVan

Datum:
25.02.2014 09:46:04

Views:
1013

Rating:

Antwort:

Thema:
Shapes mit bestimmter Name ansprechen

Have it!!!!!!!

Sub Method9()
    Dim rng1 As Range
    Dim strSearch As String
    Dim sShapes As Shape
    Dim wsLoop As Worksheet
    Dim l As Long
        For Each wsLoop In Worksheets
        Select Case UCase(wsLoop.Name)
        Case "PLCP"
        For Each sShapes In wsLoop.Shapes
            If sShapes.Name Like "Scale_*" Then
            strSearch = sShapes.Name
            Set rng1 = Range("F:F").Find(strSearch, , xlValues, xlWhole)
            If Not rng1 Is Nothing Then
            l = rng1.Row
            Worksheets("PLCP").Shapes(sShapes.Name).Chart.SetSourceData Source:=Union(Range(Cells(l + 2, 5), Cells(l + 31, 6)), Range(Cells(l + 2, 8), Cells(l + 31, 37)))
         End If
          End If
    Next sShapes
    End Select
    Next wsLoop
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Shapes mit bestimmter Name ansprechen	11.02.2014 10:42:53	Matt
Shapes mit bestimmter Name ansprechen	11.02.2014 19:50:49	H27
Shapes mit bestimmter Name ansprechen	19.02.2014 18:56:59	Gast75049
Shapes mit bestimmter Name ansprechen	19.02.2014 20:19:43	Gast65132
Shapes mit bestimmter Name ansprechen	25.02.2014 08:02:15	Mattvon
Shapes mit bestimmter Name ansprechen	25.02.2014 09:46:04	MattVan