Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Beschriftung von Formular-Buttons | Herbers Excel-Forum


Betrifft: Beschriftung von Formular-Buttons von: Jörg-HH
Geschrieben am: 31.07.2012 21:43:10

Hallo zusammen

wie spricht man den Beschriftungstext auf einer xl4-Schaltfläche an? Also das, was bei einer ActiveX-Schaltfläche caption heißt...

Grüße - Jörg

  

Betrifft: AW: Beschriftung von Formular-Buttons von: Ramses
Geschrieben am: 31.07.2012 21:46:51

Hallo

Blöde Frage, wenn du die Beschriftung mit VBA ändern willst, warum nimmst du dann nicht gleich die ActiveX-Schaltflächen ?
Wozu dann die Formularelemente verwenden ?

Gruss Rainer


  

Betrifft: ja - dann ist ist das wohl so... aber... von: Jörg-HH
Geschrieben am: 31.07.2012 21:56:11

...wer VBA = bescheiden in den Level schreibt, kann eben nur blöde Fragen stellen...

Wie wär's denn, Rainer, wenn du sie einfach beantwortest statt sie zu bewerten?

Hab ohnehin genug Probleme, überhaupt ins Form zu kommen, weil hier andauernd das Funknetz zusammenbricht oder meist gar nicht erst ausreichend aufgebaut wird. Wär also hiilfreich, wenn ich die Wetterlage nutzen könnte und eine Antwort bekäme, solange es geht...

Jörg


  

Betrifft: AW: ja - dann ist ist das wohl so... aber... von: Ramses
Geschrieben am: 31.07.2012 22:01:39

Hallo

Das war eine Redewendung und eigentlich keine blöde Frage, und hat auch nichts mit deinem Level zu tun.
Lies mal deine Frage durch und meine Rückfrage dazu.

Warum nimmst du keine ActiveX-Elemente anstelle der Formular Schaltflächen. Ist doch wesentlich einfacher zum handhaben

Gruss Rainer


  

Betrifft: Sei es drum.... von: Ramses
Geschrieben am: 31.07.2012 22:05:58

Hallo

'**************************************
'Start Code Sequenz
'Erstellen der Button

Sub CreateButtons()
'(C) Ramses
'Erstellt in den Sheets 2 bis 7
'Einen Button aus der Symbolleiste
'Formular in einer bestimmten Zelle
Dim i As Integer
For i = 2 To 7
    'A1 ist dort wo der Button hin soll
    AddButton2 i, "A1"
Next i
End Sub

Sub AddButton2(mySheet As Integer, tarC As String)
Dim butWks As Worksheet, myC As Range
Dim myButton As Object
Set butWks = Worksheets(mySheet)
Set myC = butWks.Range(tarC)
Application.ScreenUpdating = False
With butWks
    Set myButton = .Buttons.Add(0, 0, 0, 0)
    With myButton
        'Eintragung der Bezugszelle
        .Top = myC.Top + 1
        .Left = myC.Left
        .Height = myC.Height
        .Width = myC.Width * 2
        .Text = "Start Userform"
        'Dieses Makro wird ausgelöst
        .OnAction = "ShowMyUserform"
    End With
End With
Application.ScreenUpdating = True
End Sub
'Das gehört in Modul
Sub ShowMyUserForm()
UserForm1.Show
End Sub
'Ende Code Sequenz
'**************************************

Hoffe das bringt Licht in deine Frage

Gruss Rainer


  

Betrifft: AW: Sei es drum.... von: Jörg-HH
Geschrieben am: 31.07.2012 22:16:35

...ja, bringt Licht. Blendet allerdings etwas...

Trotzdem danke

Jörg


  

Betrifft: Makros anhängen von: Jörg-HH
Geschrieben am: 31.07.2012 22:09:15

...ich hab viele davon, die alle auf dasselbe Makro zugreifen. Bei xl4 ist das jeweils ein Klick, bei ActiveX muß ich für jeden eine onClick-Sub machen.

oder hab ich da was falsch verstanden?

Jörg


  

Betrifft: AW: ja - dann ist ist das wohl so... aber... von: Uwe (:o)
Geschrieben am: 31.07.2012 22:03:49

Hallo Jörg,
ich muss Rainer Recht geben, Active-X wäre wohl sinnvoller.
Aber ich habe jetzt mal den Makro-Redkorder angeschmissen und bin darauf gekommen:

Sub Test()
    ActiveSheet.Shapes("Button 1").Select
    Selection.Characters.Text = "ABCDE"
End Sub
Allerdings bekomme ich das ohne das Select nicht hin, was mich prinzipiell wurmt.
Aber vielleicht ist das ja einer der wenigen Fälle, wo es nicht ohne geht!?

Gruß
Uwe
(:o)


  

Betrifft: ach ja... von: Jörg-HH
Geschrieben am: 31.07.2012 22:13:29

...sorry, Uwe - hab die Hilfe und das Archiv gewälzt, aber den Rekorder hab ich verpennt...

Danke

Jörg


  

Betrifft: AW: ja - dann ist ist das wohl so... aber... von: hary
Geschrieben am: 31.07.2012 22:54:13

Hallo Uwe
Hab hier 2007.

ActiveSheet.Shapes("Button 1").DrawingObject.Text = "ABCDE"

gruss hary


  

Betrifft: AW: ja - so klappt es auch ohne SELECT von: Uwe (:o)
Geschrieben am: 31.07.2012 23:02:24

Hallo hary,
danke, so klappt es auch ohne Select (auch bei mir in 2010).
Darauf muss man nur erst mal kommen.

Gruß
Uwe
(:o)


  

Betrifft: AW: ja - so klappt es auch ohne SELECT von: {Boris}
Geschrieben am: 01.08.2012 11:03:43

Hi,

gibt auch noch eine ganz andere Möglichkeit:

Sub test()
Dim Cb As Button
Set Cb = Tabelle1.Buttons(1)
Cb.Caption = "Huhu!!!"
End Sub
Die alten Formularelemente sind alle noch vorhanden - nur sind sie nicht mehr sichtbar (Intellysense).
Man kann sie so aber wunderbar (und vor allen Dingen einfach) ansprechen.

VG, Boris


  

Betrifft: shapes oder buttons ? von: Jörg-HH
Geschrieben am: 01.08.2012 11:32:40

Hi Boris
jetzt versteh ich nicht, wieso die Dinger einmal auf shapes hören, ein andermal auf buttons

Gruß Jörg


  

Betrifft: AW: shapes oder buttons ? von: {Boris}
Geschrieben am: 01.08.2012 12:11:48

Hi Jörg,

diese Buttons sind Bestandteil der "Shape-Familie". Man kann sie aber - wie ich beschrieben habe - auch direkt ansprechen.

VG, Boris


Beiträge aus den Excel-Beispielen zum Thema "Beschriftung von Formular-Buttons"