kopierte Scahltfläche Caption ändern
26.11.2012 11:21:12
Wilson
ich habe wieder mal eine Frage. Ich habe es geschafft mit meinen nicht so guten Kenntnissen in VBA, eine Schaltfläche samt ihrer Funktion zu kopieren. Es werden automatisch neue Tabellen erstellt und gleichzietig diese Schaltfläche erstellt. Wenn aber die Schaltfläche kopiert wird, heisst diese "CommandButton1" anstatt "Suchen". Damit meine ich die Caption.
Jetzt bin ich auf eure Hilfe angewiesen. Kann mir jemand evtl. sagen was ich in meinem kleinen Abschnitt falsch mache bezüglich der Caption?
Private Sub fktRegisterKopfdatenAnlegen(wsNew As Worksheet, strTabNameAusStandardVerz As String) _
Dim strZellenwertAusET As String
Dim xlEnd As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim z As Integer
Dim btn As Shapes
Dim sCode As String
'Schaltfläche "Suchen" in die neuen Register einfügen
wsNew.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=wsNew.Cells(ActiveCell.Row, 8).Left - 40, _
Top:=wsNew.Cells(ActiveCell.Row, 8).Top - 30, _
Width:=90, _
Height:=25).Name = "Suchen"
sCode = "
Private Sub CommandButton1_Click()" & vbLf
sCode = sCode & "UserFormSuchenOeffnen" & vbLf
sCode = sCode & "End Sub
" & vbLf
ActiveWorkbook.VBProject.VBComponents _
(ActiveSheet.CodeName).CodeModule.AddFromString sCode
Anzeige