Fehleingabe oder Abbrechen bei Inputbox

Private Sub CommandButton1_Click() Dim lng_id As Long lng_id = InputBox("ID?") Set CommandButton1.Picture = Application.CommandBars.FindControl(ID:=lng_id).Picture CommandButton1.PicturePosition = fmPicturePositionLeftCenter 'Picture Ausrichtung links vom _ Buttontext End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim lng_id As Long lng_id = Application.InputBox("ID?", , , , , , , 1) If lng_id = 0 Then Exit Sub Else Set CommandButton1.Picture = Application.CommandBars.FindControl(ID:=lng_id).Picture CommandButton1.PicturePosition = fmPicturePositionLeftCenter 'Picture Ausrichtung links vom _ _ Buttontext End If End Sub

Danke Karin,
für Hinweis und da werde ich mich auch mit beschäftigen.
Mir ging es ursächlich ja darum. per Id die Shapes in den CommandButton zu bekommen und das funktioniert.
Das kopieren des Buttons habe ich geschafft, aber ganz ohne Select habe ich es nicht geschafft.
Desweiteren die Caption im neue kopierten Button, also z.B. CommandButton2, habe ich nicht erreicht. Der neu kopierte Button hat ja die Caption "CommandButton1". Ideal wäre, wenn der neue, kopierte Button, die Caption am Ende, also statt 1 die 2 erhält. So würde der neue Button die richtige Caption haben.
Aber für solche Spezialitäten fehlt mir absolut des Wissen.
Dennoch lieben Dank, Karin, für deine bisherige Hilfe.
Gruß, Dieter(Drummer)
Mein jetziger Code für Kopieren:

Private Sub Kopie_Button()
Worksheets("Tabelle1").Shapes("CommandButton1").Copy
Range("E18").Select
ActiveSheet.Paste
End Sub

Dim oobButton As OLEObject Set oobButton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Link:=False, DisplayAsIcon:=False, Left:=Range("E18").Left, _ Top:=Range("E18").Top, Width:=100, Height:=30) With oobButton .Name = "CommandButton2" .Object.Caption = "Button 2" End With

Hallo Karin,
jetz taucht neuer Fehler bei Abbrechen auf: Laufzeitfehler 424, Objekt erforderlich und selbe Zeile wird gelb markiert.
Hier mein jetziger Code mit deiner neuen Änderung:

Sub SchalterErstellen()
' Makro zum Erstellen eines CommandButtons
Dim cmbSchalter As MSForms.CommandButton
Dim rngZelle As Range
Dim lng_id As Long
inZaehler = 0
On Error Resume Next
Set rngZelle = Application.InputBox("Zelle für Button auswählen", , , , , , , 8)
On Error GoTo 0
If Not rngZelle Is Nothing Then
lng_id = Application.InputBox("ID?", , , , , , , 1)
If lng_id  0 Then
With Worksheets("Tabelle1")
Application.ScreenUpdating = False
For Each ooElement In .OLEObjects
If ooElement.progID = "Forms.CommandButton.1" Then inZaehler = inZaehler +  _
1
Next ooElement
.OLEObjects.Add "Forms.CommandButton.1"
Set ooElement = .OLEObjects(.OLEObjects.Count)
With ooElement
.Object.Caption = " CommandButton" & inZaehler + 1
.Top = rngZelle.Top
.Left = rngZelle.Left
.Width = 125
.Height = 31
.Object.PicturePosition = 1
End With
ooElement.Object.TakeFocusOnClick = False
End With
Application.OnTime Now + TimeValue("00:00:01"), "InitSchalter"
On Error Resume Next
Set ooElement.Object.Picture = Application.CommandBars.FindControl(ID:=lng_id). _
Picture
On Error GoTo 0
End If
End If
Application.ScreenUpdating = True
End Sub

Gruß, Dieter(Drummer)

Beliebteste Forumthreads (12 Monate)

Fehleingabe oder Abbrechen bei Inputbox

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehleingabe oder Abbrechen bei Inputbox

32 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread