Command Button per VBA einfügen
14.03.2017 14:58:37
Markus
ich möchte in ein Excel Sheet über ein Command Button (Button einfügen) und einem Makro ein Command Button einfügen und diesen automatisch umbenennen lassen und zwar mit dem Wert der in der Tabelle 2 steht und zwar von unten nach oben gesehen der erste Wert.
In meinem Beispiel also "Mathias"
Momentan wird ja er ja mit "Testbutton" benannt, wie muss ich den Code umschreiben, damit dort der Wert wie oben beschrieben steht?
https://www.herber.de/bbs/user/112177.xlsm
Ich habe folgenden Code:
Sub Button_einfügen()
Dim FormularControl As Object, Z As Long, W#, H#, L#, T#
W = 72: H = 21: L = 1: T = 1
'For Z = 1 To 5
Set FormularControl = ActiveSheet.Buttons.Add(1166.25, 294.75, 73.5, 24.75)
With FormularControl
.Name = "F_Control " & Z
.Characters.Text = "Testbutton"
.Enabled = True
.LockedText = False
.OnAction = "Datensatz_suchen"
.Placement = xlFreeFloating
.PrintObject = False
With .Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.ColorIndex = 5
.Strikethrough = False
.Superscript = False
.Subscript = False
.Underline = xlUnderlineStyleNone
End With
End With
L = L + W
'Next
Set FormularControl = Nothing
End Sub