Moin zusammen,
ich versuche mit folgendem Code ein Textfeld auszulesen:
Workbooks("Mappe2").Workscheets("Tabelle1").Range("H3") = Workbooks("Mappe2").Workscheets("Tabelle1").Texbox1.Value
Er soll mir also den Inhalt von Textbox1 nach H3 im selben Blatt schreiben.
Fehlermeldung: Objekt unterstützt diese Eigenschaft oder Methode nicht.
Kann jemand helfen?
Excel 2000
Gruß und danke
Rolf
Moin, Rolf,
Workbooks(„Mappe2“).Workscheets(„Tabelle1“).Range(„H3“) =
Workbooks(„Mappe2“).Workscheets(„Tabelle1“).Texbox1.Value
schreib mal Worksheets ohne c. Texbox1 ist zwar nur ein Name, wäre aber auch zu prüfen.
Gruß Ralf
ich versuche mit folgendem Code ein Textfeld auszulesen:
Workbooks(„Mappe2“).Workscheets(„Tabelle1“).Texbox1.Value
definiere bitte „Textfeld“ bzw „Texbox1“
hast Du es schon mal mit dem Makrorekorder versucht?
incl den Text in einem beispielmakro mal geändert…
und evtl würde es sich anbieten einfach mit mehrzeiligem code zu arbeiten.
Also Mappe selektieren, Tabelle selektieren, „Textbox“ selektieren - code in ne Variable stecken bzw mit sowas wie
Selection.Characters.Text
auslesen und direkt in die richtige Zelle schreiben…
Grüße
Munich
Hallo Ralf
Workbooks(„Mappe2“).Workscheets(„Tabelle1“).Range(„H3“) =
Workbooks(„Mappe2“).Workscheets(„Tabelle1“).Texbox1.Valueschreib mal Worksheets ohne c.
Aua…
Klappt trotzdem nicht.
„Mappe2“ heisst inzwischen „test.xls“. Wenn ich also „Mappe2“
durch („c:\verz\test.xls“) ersetze, meckert er „Index außerhalb des
gültigen Bereichs“.
Gruß Rolf
Hallo Munich,
ich versuche mit folgendem Code ein Textfeld auszulesen:
Workbooks(„Mappe2“).Worksheets(„Tabelle1“).Texbox1.Valuedefiniere bitte „Textfeld“ bzw „Texbox1“
Textfeld aus Steuerelemente Toolbox
hast Du es schon mal mit dem Makrorekorder versucht?
incl den Text in einem beispielmakro mal geändert…
Ja
ActiveSheet.Shapes("TextBox1").Select
Selection.Copy
Range("H3").Select
ActiveSheet.Paste
das kopiert mit aber die Textbox nach H3, ich möchte aber nur
deren Inhalt haben.
und evtl würde es sich anbieten einfach mit mehrzeiligem code
zu arbeiten.
Also Mappe selektieren, Tabelle selektieren, „Textbox“
selektieren
- code in ne Variable stecken bzw mit sowas wie
Selection.Characters.Text
auslesen und direkt in die richtige Zelle schreiben…
Könntest Du das in einem Beispiel unterbringen?
Das krieg ich so nicht hin.
Gruß
Rolf
Hi Rolf,
alte Bauernregel: Immer nur eine Änderung zu einer Zeit!
Wie man den Dateinamen hier unterkriegt, weiß ich gerade nicht, hätte aber eine Lösung ohne denselben (getestet!):
Private Sub TextBox1\_Change()
With ThisWorkbook.Worksheets("Tabelle1")
.Range("a1") = .TextBox1.Value
End With
End Sub
Gruß Ralf
Hallo Ralf,
vielen Dank erstmal für Deine Mühe.
Private Sub TextBox1_Change()
With ThisWorkbook.Worksheets(„Tabelle1“)
.Range(„a1“) = .TextBox1.Value
End With
End Sub
Code in „diese Arbeitsmappe“ kopiert und im Arbeitsblatt
eine Zahl verändert, die auch den Inhalt von Textbox1 verändert.
Aber in A1 passiert nix.
Wenn Du es getestet hast, mache ich was verkehrt.
Der Name Textbox1 ist korrekt (Einfügen -> Name -> definieren -> bezieht sich auf… -> Abbruch)
Zur Funktion von Textbox1:
Ich habe ein Textfeld aus der Steuerelemente-Toolbox genommen
und plaziert. Während es noch markiert war, habe ich in der
Eingabezeile auf D3 verwiesen. Die Textbox zeigt mir also
immer den Inhalt von D3.
Hast Du noch eine Idee?
Gruß
Rolf
Hi Rolf,
Während es noch markiert war, habe ich in der
Eingabezeile auf D3 verwiesen. Die Textbox zeigt mir also
immer den Inhalt von D3.
mir gelingt es nicht, den Schritt nachzuvollziehen, ich verstehe aber auch nicht, was das soll. Wenn die Textbox immer den Inhalt von D3 zeigt, wozu brauche ich sie dann überhaupt? In H1 zu schreiben „=D3“ wäre einfacher 
Gruß Ralf
Danke
Moin Ralf,
Während es noch markiert war, habe ich in der
Eingabezeile auf D3 verwiesen. Die Textbox zeigt mir also
immer den Inhalt von D3.
mir gelingt es nicht, den Schritt nachzuvollziehen,
Schreib in D3 4711
Ziehe ein Textfeld auf aus der Steuerelemente-Toolbox.
Das Textfeld ist nach dem Aufziehen markiert.
Setze den Cursor oben in die Bearbeitungszeile und schreib =D3
Das Textfeld zeigt nun immer den Inhalt von D3. So kann ich das
Textfeld z.B. als Maß unabhängig von der Zelle plazieren - aber das
nur nebenbei.
ich verstehe aber auch nicht, was das soll. Wenn die Textbox immer
den Inhalt von D3 zeigt, wozu brauche ich sie dann überhaupt?
In H1 zu schreiben „=D3“ wäre einfacher
Da hast Du natürlich recht. Ist doch nur beispielhaft.
Ziel war es eigentlich nur, dieses Textfeld auszulesen.
Scheint aber kompliziert zu sein. Ich versuche erstmal,
eine andere Lösung zu finden. Danke für Deine Mühe.
Gruß Rolf
Moin, Rolf,
Schreib in D3 4711
Ziehe ein Textfeld auf aus der Steuerelemente-Toolbox.
Das Textfeld ist nach dem Aufziehen markiert.
Setze den Cursor oben in die Bearbeitungszeile und schreib =D3
mit diesem Trick hast Du aus einer Textbox ein Grafikfeld gemacht. Kein Wunder, dass sich das nicht auslesen lässt ))
Gruß Ralf