Text eines Button auslesen

Forumthread: Text eines Button auslesen

30.04.2003 07:06:00

Marco

Hallo liebe Excelfreunde,

ich würde gerne von einem Button (Schaltfläche)
den Text auslesen.
Die Zuweisung eines Textes erfolgt über
ActiveSheet.Shapes("Button 16").Select
Selection.Characters.Text = "--"
Aber wie kann ich z.B. von einem bestehenden Button
den Text in eine Variable einlesen und anschließend
z.B. als Namen einem Excelsheet zuweisen.
Freue mich über jede Hilfe.

Grüße/Marco

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Text eines Button auslesen

30.04.2003 07:22:36

michel
Re: Text eines Button auslesen

30.04.2003 07:38:11

Marco
Re: Text eines Button auslesen

30.04.2003 07:41:17

Marco
Re: Text eines Button auslesen

30.04.2003 07:43:50

Heinz A. Wankmüller
Re: Text eines Button auslesen

30.04.2003 07:48:03

Marco

Re: Text eines Button auslesen

30.04.2003 07:22:36

michel

hallo marco,

wenn ich dich richtig verstehe löst folgendes dein problem:

DEINEVARIABLE = Sheets("DEINBLATT").Shapes("Button 16).Text
und
sheets(1).name=DEINEVARIABLE

michel

Re: Text eines Button auslesen

30.04.2003 07:38:11

Marco

Hallo michel,
Danke für den Tip,
habe jetzt folgendes probiert:

Dim Buttontext as string
Buttontext = Sheets("SYS").Shapes("Button 16").Text

Führt leider zum Laufzeitfehler "438" Objekt unterstützt Eigenschaft oder Methode nicht.

Viele Grüße / Marco

Re: Text eines Button auslesen

30.04.2003 07:41:17

Marco

Hallo michel,
Danke für den Tip,
habe jetzt folgendes probiert:

Dim Buttontext as string
Buttontext = Sheets("SYS").Shapes("Button 16").Text

Führt leider zum Laufzeitfehler "438" Objekt unterstützt Eigenschaft oder Methode nicht.

Viele Grüße / Marco

Re: Text eines Button auslesen

30.04.2003 07:43:50

Heinz A. Wankmüller

Hallo Marco,
so z.B.

Gruß
Heinz

Re: Text eines Button auslesen

30.04.2003 07:48:03

Marco

Hallo Heinz,
super, vielen Dank, da hätte ich mit ein wenig Überlegung eigentlich drauf kommen müssen.
Danke für Deine Hilfe
Gruß/Marco

Infobox / Tutorial

Text eines Buttons in Excel auslesen und verwenden

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den Text eines Buttons in Excel auszulesen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

Öffne dein Excel-Dokument und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf „VBAProject (dein Dokument)“ klickst und „Modul einfügen“ auswählst.

Schreibe den folgenden VBA-Code in das Modul:

Dim ButtonText As String
ButtonText = Sheets("SYS").Shapes("Button 16").TextFrame.Characters.Text
Sheets(1).Name = ButtonText

Ersetze "SYS" und "Button 16" durch die entsprechenden Namen deiner Arbeitsblätter und des Buttons.
Führe den Code aus, um den Text des Buttons auszulesen und das Arbeitsblatt entsprechend umzubenennen.

Häufige Fehler und Lösungen

Laufzeitfehler "438": Dieser Fehler tritt auf, wenn eine Eigenschaft oder Methode für das angegebene Objekt nicht unterstützt wird. Stelle sicher, dass der Button den richtigen Namen hat und dass du auf die TextFrame.Characters.Text-Eigenschaft zugreifst, um den Text auszulesen.
Falsches Arbeitsblatt: Achte darauf, dass du das richtige Arbeitsblatt angibst. Wenn dein Button auf einem anderen Blatt ist, musst du den Blattnamen entsprechend anpassen.

Alternative Methoden

Falls du den Text eines Buttons in einer anderen Excel-Version oder in einer anderen Form benötigst, gibt es alternative Methoden:

Formelbasierte Ansätze: Wenn dein Button mit einer Zelle verknüpft ist, kannst du den Text auch direkt aus der Zelle auslesen.
ActiveX-Steuerelemente: Bei Verwendung von ActiveX-Buttons kannst du den Text mit ActiveSheet.OLEObjects("Button 16").Object.Caption abrufen.

Praktische Beispiele

Hier sind einige praktische Beispiele, die dir helfen, den Text eines Buttons auszulesen und zu verwenden:

Einen Button in einem Makro verwenden:

Sub ButtonTextAuslesen()
    Dim ButtonText As String
    ButtonText = Sheets("SYS").Shapes("Button 16").TextFrame.Characters.Text
    MsgBox "Der Text des Buttons lautet: " & ButtonText
End Sub

Text in einer Zelle speichern:

Sub ButtonTextInZelle()
    Dim ButtonText As String
    ButtonText = Sheets("SYS").Shapes("Button 16").TextFrame.Characters.Text
    Sheets("SYS").Range("A1").Value = ButtonText
End Sub

Tipps für Profis

Nutze die On Error Resume Next-Anweisung, um Fehler zu handhaben, wenn du versuchst, den Text eines Buttons auszulesen, der möglicherweise nicht existiert.
Kommentiere deinen Code ausgiebig, um die Lesbarkeit und Wartbarkeit zu verbessern.
Experimentiere mit verschiedenen Steuerelementen und ihren Eigenschaften, um die für deine Bedürfnisse am besten geeignete Methode zu finden.

FAQ: Häufige Fragen

1. Wie kann ich den Text eines Buttons in einer anderen Zelle anzeigen?
Du kannst den Text des Buttons mit dem oben gezeigten VBA-Code in eine beliebige Zelle deiner Wahl speichern.

2. Was mache ich, wenn der Button nicht existiert?
Verwende die On Error Resume Next-Anweisung, um Laufzeitfehler zu vermeiden, und prüfe, ob der Button existiert, bevor du versuchst, den Text auszulesen.

Beliebteste Forumthreads (12 Monate)

Forumthread: Text eines Button auslesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Text eines Buttons in Excel auslesen und verwenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread