Fehleingabe oder Abbrechen bei Inputbox

Dieter(Drummer) · 2019-07-16T09:42:27+00:00

Guten Tag VBA Spezialisten/innen. Wie mus der Code sein, dass bei Fehleingabe der ID, oder bei Klick auf Button "Abbrechen", der gesamte Vorgang beendet wird, ohne Hinweis auf "Debugging" und "Laufzeit Fehler 13"? Dieser Code, der funktioniert, wurde mir von "Herber: Regina Resch-Jansen am 14.07.2019" feundlicher Weise gemacht. Dafür nochmal Danke! 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 Mit der Bitte um Hilfe. Gruß, Dieter(Drummer)

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

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)

Fehleingabe oder Abbrechen bei Inputbox

Forumthread: Fehleingabe oder Abbrechen bei Inputbox

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Fehleingabe oder Abbrechen bei Inputbox

Forumthread: Fehleingabe oder Abbrechen bei Inputbox

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

32
Beiträge zum Forumthread

Beiträge zu diesem Forumthread