Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA - Nummerierung Button Name
#1
Hallo Zusammen,

mit meinem Makro (siehe unten) erstelle ich einen Button:

Code:
Dim Code As String

Dim a As Integer, b As Integer, c As Integer, d As Integer, FTop As Integer

a = 1
b = 25
c = 1
d = 1
FTop = 385

Do
    Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=b, Top:=FTop, Width:=110, Height:=25)
        ActiveSheet.OLEObjects(a).Object.Caption = "Watch Assignment"
        btn.Name = "Watch_WKA" & d & "_" & c
        btn.Visible = False
        
        Code = "Private Sub Watch_WKA" & d & "_" & c & "_Click()" & vbCrLf
        Code = Code & "    Dim Name As String" & vbCrLf
        Code = Code & "    Dim ws As Worksheet" & vbCrLf & vbCrLf
        Code = Code & "    Set ws = Worksheets(""UserForm_Data"")" & vbCrLf
        Code = Code & "    Name = ""WKA_& d""" & vbCrLf & vbCrLf             ' Dieser Teil bereitet mir Probleme.
        Code = Code & "    Call Watch_UF_Assign_Data(Name)" & vbCrLf
        Code = Code & "    ws.Visible = xlSheetVeryHidden" & vbCrLf & vbCrLf
        Code = Code & "    WatchAssignment.Show" & vbCrLf
        Code = Code & "End Sub"
        
        With ActiveWorkbook.VBProject.VBComponents(Worksheets(ActiveSheet.Name).CodeName).CodeModule
            .insertlines .CountOfLines + 1, Code
        End With
    FTop = FTop + 135
    d = d + 1
    a = a + 1
Loop Until d = 5

Meine Problem ist es, ich weiß nicht wie ich den Teil Code = Code & "    Name = ""WKA_&_d""" & vbCrLf & vbCrLf richtig schreiben muss, damit ich bei den Buttons folgende fünf Namen habe. D.h. für:
  • Watch_WKA1_1 --> Name = WKA_1
  • Watch_WKA2_1 --> Name = WKA_2
  • Watch_WKA3_1 --> Name = WKA_3
  • usw.
Ich hoffe jemand kann mir helfen. Ich habe es bereits mit folgenden probiert:
  • Name = ""WKA_"" & d & 
  • Name = ""WKA_""" & d
  • Name = ""WKA_" & d ""
SG.
Antwortento top
#2
Hallo, 19

probiere es mal so (getestet): 21


Code:
Code = Code & "    Name = ""WKA_" & d & "" & vbCrLf & vbCrLf
________
Servus
Case
[-] Folgende(r) 1 Benutzer sagt Danke an Case für diesen Beitrag:
  • Mr.Invisible
Antwortento top
#3
(03.09.2018, 07:19)Case schrieb: Hallo, 19

probiere es mal so (getestet): 21


Code:
Code = Code & "    Name = ""WKA_" & d & "" & vbCrLf & vbCrLf

PERFEKTSmile Vielen Danke für die schnelle und rasche Lösung .. Danke Danke
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste