Worksheet mit Variabler aufrufen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
ActiveWorkbook.Worksheets(i).Select
selektiert ein Blatt nach der Erstellungsreihenfolge?

Nein:
ActiveWorkbook.Worksheets(i).Select
selektiert ein Blatt anhand der Reihenfolge der Anordnung der Blätter in der Arbeitsmappe.
Probier mal mein Testmakro, verändere dann die Reihenfolge der Blätter und lasse das Makro erneut laufen. Du wirst feststellen, dass die Blätter immer von vorne nach hinten durchnummeriert werden.


Sub test()
Dim i As Integer
For i = 1 To 3
ActiveWorkbook.Worksheets(i).Cells(1, 1) = i
Next i
End Sub

Hilft dir dieser Hinweis bei der korrekten Indexerstellung?

Ob deine gewünschte Lösung machbar ist, weiss ich nicht, ich habe es nicht hinbekommen.

Gruss Jörg

Hallo ihr Nachteulen,

vielen Dank für die schnelle Reaktion.
Peter, arbeite wenn es geht ohne select. War nur zur Illustration der Blattbenennung.

Jörg, du hast recht. Die Anordnung der Blätter spielt bei Worksheets(i) eine Rolle.

Gerd, ich meine den Codename. Bei Worksheets(i) verändert sich die Zahl, wenn die Position des Blattesgeändert wird. Der Codename jedoch nicht. Deshalb ist es sicherer, ein Blatt darüber anzusprechen.

Meine Frage ist im Zusammenhang mit der Suche nach einem benannten Objekt. Ich lese aus der Tabelle 1 Spalte A die Worksheet Nummern der zu untersuchenden Blätter und überprüfe das Vorhandensein des gesuchten Objektes. Bei Erfolg wird in die Spalte B eine "1" geschrieben. Mein Problem besteht darin, dass wenn die Reiehenfolge der Blätter geändert wird, dann funktioniert das Makro nicht mehr. Deshalb wäre mir das Ansprechen mit dem Codenamen lieber.

Danke für Eure Hilfe
Michael

Der bisherige Code lautet:


Sub FindShape()
Dim intI As Integer    'Zähler für Blätter
Dim intShape As Integer  'Zähler für Objekte
'Schleife durch alle Blätter, die Grafiken empfangen können
For intI = 1 To 10
'Schleife durch alle Shapes des gewählten Blattes vom letzten zum ersten
For intShape = Worksheets(Sheet1.Range("A" & intI)).Shapes.Count To 1 Step -1
'Suche nach dem benannten Objekt
If left(Worksheets(Sheet1.Range("A" & intI)).Shapes(intShape).name, 13) = "FS_Plancenter" Then
'Schreibe bei Erfolg in die Tabelle1
Sheet1.Range("B" & intI).Value = 1
Exit For
End If
Next
Next
End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread