Clever-Excel-Forum

Normale Version: VBA - Nummerierung Button Name
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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.
Hallo, :19:

probiere es mal so (getestet): :21:


Code:
Code = Code & "    Name = ""WKA_" & d & "" & vbCrLf & vbCrLf
(03.09.2018, 07:19)Case schrieb: [ -> ]Hallo, :19:

probiere es mal so (getestet): :21:


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

PERFEKT :) Vielen Danke für die schnelle und rasche Lösung .. Danke Danke