Das Archiv des Excel-Forums

Inhalt von Textfeld in einer TextBox wiedergeben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm


Excel-Version: XL8
nach unten

Betrifft: Inhalt von Textfeld in einer TextBox wiedergeben
von: Reinhard
Geschrieben am: 17.04.2002 - 10:02:28

Hallo,
ich möchte den Text von einem Textfeld in einer TextBox wiedergeben, wie muss der code lauten.
Wer kann mir weiter helfen

Code:
Inhalt.Value = Shapes("Textfeld 01") ??????????

nach oben   nach unten

Re: Inhalt von Textfeld in einer TextBox wiedergeben
von: Fredi
Geschrieben am: 17.04.2002 - 10:07:24

Verstehe die Frage nicht ganz. Meinst Du nicht, dass Du den Inhalt des Textfeldes in einer Meldungsbox zeigen möchtest? Gruss Fredi

nach oben   nach unten

Re: Inhalt von Textfeld in einer TextBox wiedergeben
von: Reinhard
Geschrieben am: 17.04.2002 - 10:18:43

Nein. In einer User Form hab ich eine TextBox in der ich den Inhalt eines Textfeldes mit den Namen "Textfeld 01" der auf einen WorkSheet platziert ist anzeigen. Gruss Reinhard

nach oben   nach unten

Re: Inhalt von Textfeld in einer TextBox wiedergeben
von: Fredi
Geschrieben am: 17.04.2002 - 10:43:41

Gib mir bitte bescheid, ob es funktioniert hat. Dim ws As Worksheet Dim sh As Shape Set ws = ActiveWorkbook.ActiveSheet Set sh = ws.Shapes("Textfeld 01") Me.TextBox1.Value = sh.AlternativeText Gruss Fredi

nach oben   nach unten

Re: funktioniert nicht
von: Reinhard
Geschrieben am: 17.04.2002 - 11:06:16

Funktioniert leider nicht bei Ausführen der UserForm Fehlermeldung: Objekt unterstützt diese Eigenschaft o. Methode nicht. -und bleibt am letzten Eintrag im Code hängen. Nochmal zur Info der Text soll nur in der TextBox angezeigt werden -nicht ersetzt werden. Code: Dim ws As Worksheet Dim sh As Shape Set ws = ActiveWorkbook.ActiveSheet Set sh = ws.Shapes("Textfeld 01") Me.Inhalt.Value = sh.AlternativeText

nach oben   nach unten

Re: funktioniert nicht
von: Fredi
Geschrieben am: 17.04.2002 - 12:18:39

Hast Du es schon ohne .Value probiert? Den Code habe ich beim Ereignis UserForm_Initialize() eingegeben. Es funktioniert wunderbar. Private Sub UserForm_Initialize() Dim ws As Worksheet Dim sh As Shape Set ws = ActiveWorkbook.ActiveSheet Set sh = ws.Shapes("Textfeld 2") Me.TextBox1 = sh.AlternativeText End Sub

 nach oben

Excel-Beispiele zum Thema "Inhalt von Textfeld in einer TextBox wiedergeben"
Zellinhalt suchen und Zelle auswählen Zellinhalt in zweitem Blatt ermitteln
Einlesen von Zellinhalten in Variablen Unterverzeichnisse mit Inhalt löschen
Zellinhalte zeilenweise sortieren Zellinhalt als Internet-Suchbegriff
Zellinhalt als Label-Aufschrift in UserForm Textprogramm starten und Inhalte von Zelle A1 eingeben
Nur Zellen mit Inhalt in ComboBox listen Zellinhalt und Kommentar nach Eingabe festlegen