Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For each shape in Selection

For each shape in Selection
25.09.2008 10:28:00
Atikar
Hallo Leute,
ich würde gerne alle Namen der ausgewählten Shapes auslesen, leider bekomm ich das nicht hin, und im Archiv hab ich auch nichts gefunden.
Sollte so ähnlich aussehen:
For Each sShape in Selection
msgbox sShape.name
next sShape
leider funktioniert das nicht
Gruss
Atikar

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For each shape in Selection
25.09.2008 11:17:25
Beverly
Hi Atikar,

Sub shapes_name()
Dim shShape As Shape
For Each shShape In ActiveSheet.Shapes
If shShape.Top > Selection.Top And shShape.Left > Selection.Left And _
(shShape.Top + shShape.Height



AW: For each shape in Selection
25.09.2008 12:17:00
fcs
Hallo Atikar,
hier mein Lösungsvorschlag.
Das Aufwendigste hier wie so oft: Die Ausnahmen als Fehler sinnvoll abzufangen.
Gruß
Franz

Sub NamenSelektierterObjekte()
Dim objObject As Object
On Error GoTo Fehler
For Each objObject In Selection
With objObject
MsgBox "Name Objekt: " & .Name & vbLf & "Zelle links oben: " & .TopLeftCell.Address
End With
Next
Fehler:
If Err.Number  0 Then
Select Case Err.Number
Case 438 'Nur ein Objekt ist gewählt
Set objObject = Selection
With objObject
MsgBox "Name Objekt: " & .Name
End With
Case 1004
MsgBox "Es wurde kein Objekt selektiert"
Case Else
MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Select
End If
End Sub


Anzeige

308 Forumthreads zu ähnlichen Themen

VBA|UserForm For-Each-Schleife zählt nicht korrekt
Mario

Hallo zusammen,
bei folgendem Code zählt meine For-Each Schleife fehlerhaft.
Solange die Tabelle entsprechenden Suchwert beinhaltet, wird auch der richtige Wert angegeben.
Selbst bei einem Eintrag wird auch nur 1 angezeigt.
Wenn die Tabelle aber keinen Eintrag mit diesem Suchwe...
10.07.2013 01:38:15
Thread-ID: 1321752
7 Beiträge
Anzeige
Bild in Userform einfügen - Laufzeitfehler 481
Steffen

Guten Tag,
ich habe folgendes Problem mit meiner Userform. In diese soll ein Chart von dem "Startblatt" Sheet eingefügt werden.
Dieses hat mit dem folgenden Code ein paar mal geklappt aber nun funktioniert es nicht mehr. Es kommt ständig der Laufzeitfehler 481 - Ungültiges Bild.
Ich...
26.02.2014 17:12:43
Thread-ID: 1351329
6 Beiträge
Mit VBA Formen (shapes) kopieren (NICHT ALS BLD)
jeko

Guten Morgen liebes Forum,
ich finde einfach keine Lösung und hoffe Ihr könnt mir helfen. Ich habe eine kleine Userform in der ich Formen auswählen und ein Text hinzufügen kann, nach Bestätigung der Eingabe wird das Grafikobjekt erstellt bzw. kopiert (die ich im gleichen Tabellenblatt hinte...
21.11.2014 08:17:04
Thread-ID: 1393615
4 Beiträge
Anzeige
ActiveSheet.Shapes ... in VBA vermeiden?
Sonnenpeter
Hallo zusammen,
komme mal wieder nicht weiter.
Wie kann ich ActiveSheet.Shapes... vermeiden???
ActiveSheet.Shapes("Laufschrift").TextFrame.Characters.Text = "Hallo"
Gruß / Sonnenpeter
16.01.2005 21:50:51
Thread-ID: 548553
3 Beiträge
VBA Excel: For Each Next, Tabelle auslesen usw.??
Andi

!!! SOS !!!
Hallo zusammen,
ich scheitere so ein bisschen am Setzen der richtigen Parameter bei einer For-Each-Next-Schleife. Ich möchte Folgendes tun:
Ich habe eine Quelldatei mit einer Liste von 20 Namen (xls oder txt empfohlen?).
Ich habe eine Haupt-Excel-Mappe, in der ich 20 T...
08.02.2005 16:11:50
Thread-ID: 563935
8 Beiträge
VBA: shapes("Text Box 11") ohne select ?
Klaus

Hallo VBA-ler,
ich versuche gerade, das letzte Select aus meinem Code zu entfernen.
Dies:
With Sheets("Auswertung")
[...]
.Shapes("Text Box 11").Select
Selection.Characters.Text = Range("d5")
[...]
End With
funktioniert, gefällt mir aber nicht. Andererseits b...
14.12.2005 07:43:15
Thread-ID: 708526
3 Beiträge
Optimierung VBA-Code (For Each...)
Torsten

Hallo beisammen,
folgenden, funktionierenden Code möchte ich optimieren, weil ich 25 Sheets in den Array aufnehmen muß:
Dim ws
Dim Arr, i%
Dim ZE As Object
Arr = Array("B1", "B2", "B3", "B4", "B5", "B6")
For i = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i)).Unprote...
21.04.2006 16:52:13
Thread-ID: 757148
9 Beiträge
VBA überspringt For Each Schleife
Elias
Hallo zusammen,
Ich habe ein Problem mit folgendem Code:
Dim fso As Object, OFols As Object, fols As Object, fol As Object, fils As Object, fil As Object Set fso = CreateObject("scripting.FileSystemObject") Set OFols = fso.getfolder(PicPath) Set fols = OFols.subfolders For Each fol In fols...
27.09.2021 16:40:20
Thread-ID: 1849348
18 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
6
5
3
4
2
7
2
8
17
5
4
3
2
8
4
8
7
12
4
2
2
19
7
6