Textfelder mit gleichem Namen | Herbers Excel-Forum

Hallo Wissende,
eine Anfragerin in einem anderen Forum hat folgendes Problem.
Sie hat über Symbolleiste "zeichnen" ein Textfeld erzeugt.
Dann bei gedrückter "Strg" verschoben, somit wurde es kopiert.
Sie behauptet, wenn man die Textfelder markiert, würde oben links im Namensfeld überall "Text 2" angezeigt.
Ich habe ihr das nicht geglaubt und sie gebeten, dies mal laufen zu lassen:


Sub nn()
Dim S
For Each S In ActiveSheet.Shapes
MsgBox S.Name
Next S
End Sub

Nun sagt sie, alle Textfelder hießen "Text 2"
Ich habe kein 2003, nur 2000, wenn ich mache was sie gemacht hat heißen die Dinger wie gewohnt Textfeld 1, Textfeld 2, usw.
(Damit meine ich die Anzeige im namensfeld)
Im Code heißen sie Text Box 1, Text Box 2, usw.
Nun blicke ich nicht mehr durch. Kann das an der Version liegen?
Wäre jmd. hier mit XL2003 so nett und würde mal rumtesten?
Und, habe ich Recht mit meiner Annahme, Excel duldet keine zwei Objekte gleichen Namens auf einem Blatt?
Eine Beispielmappe habe ich erbeten, mal schauen wann sie kommt.
Danke ^ Gruß
Reinhard

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reinhard,
ich habe das eben mit Excel 2003 getestet :
Erstellt man ein Textfeld ("Textfeld 1") und kopiert dieses per Strg-Taste und Maus, so heißt die Kopie wie von dir beschrieben "Textfeld 2". Der Name kann auch nicht auf den eines bereits bestehenden Textfeldes geändert werden !
Ändert man den Namen eines Textfeldes jedoch VOR dem Kopieren (z.B: "Textfeld 2" nach "Text2") und kopiert dieses per Strg-Taste und Maus, so heißt dieses tatsächlich auch "Text2" - sowohl als Objekt in der Mappe wie auch per VBA : MsgBox Activesheet.Textboxes(3).Name
Es kann per VBA (wie von Luc bereits erwähnt) nur per Index oder über den ursprünglichen Namen referenziert werden, nicht per Name :
Activesheet.Textboxes("Text2").Select 'Markiert das 2.Textfeld, das als Kopie von "Textfeld 1" erstellt wurde
Activesheet.Textboxes(2).Select 'Markiert das 2.Textfeld, das als Kopie von "Textfeld 1" erstellt wurde
Activesheet.Textboxes(3).Select 'Markiert das 3.Textfeld, das als Kopie von "Text2" erstellt wurde
Activesheet.Textboxes("Textfeld 3").Select 'Markiert das 3.Textfeld, das als Kopie von "Text2" erstellt wurde
MsgBox ActiveSheet.Textboxes("Text Box 3").Index' Ergibt : 3 (da 3. Textfeld des Blattes)
Das gleiche gilt für die Referenzierung per Shape-Object :
MsgBox ActiveSheet.Shapes(1).name' Ergibt : "Text Box 1"
MsgBox ActiveSheet.Shapes("Textfeld 1").name' Ergibt : "Text Box 1"
MsgBox ActiveSheet.Shapes("Text Box 1").name' Ergibt : "Text Box 1"
MsgBox ActiveSheet.Shapes(2).name' Ergibt : "Text2"
MsgBox ActiveSheet.Shapes("Textfeld 2").name' Ergibt : "Text2"
MsgBox ActiveSheet.Shapes("Text Box 2").name' Ergibt : "Text Box 2"
MsgBox ActiveSheet.Shapes(3).name' Ergibt : "Text2"
MsgBox ActiveSheet.Shapes("Textfeld 3").name' Ergibt : "Text2"
MsgBox ActiveSheet.Shapes("Text Box 3").name' Ergibt : "Text2"
Leider funktioniert meine VBA-Hilfe auf dem PC nicht, so dass ich in der OH nicht nachschlagen kann, welche Properties das Textbox-Objekt besitzt - evtl. kann man den "ursprünglichen" (bzw. internen) Namen doch per VBA ermitteln ?
Gruß, NoNet

Sub tt() Dim S With ActiveSheet MsgBox .Shapes("Text2").Name MsgBox .Shapes("Textfeld 1").Name Set S = .Shapes("Textfeld 2") MsgBox .Shapes("Textfeld 2").Name MsgBox .Shapes("Text2").AlternativeText MsgBox .Shapes("Textfeld 1").AlternativeText MsgBox .Shapes("Textfeld 2").AlternativeText MsgBox .TextBoxes("Text2").Name MsgBox .TextBoxes("Textfeld 1").Name MsgBox .TextBoxes("Textfeld 2").Name MsgBox .TextBoxes("Text2").Text MsgBox .TextBoxes("Textfeld 1").Text MsgBox .TextBoxes("Textfeld 2").Text End With End Sub

Beliebteste Forumthreads (12 Monate)

Textfelder mit gleichem Namen | Herbers Excel-Forum

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textfelder mit gleichem Namen | Herbers Excel-Forum

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread