iButton lässt sich nicht definieren
15.05.2021 11:53:20
MikeY
ich bin absoluter VBA Anfänger. Aber schon verdammt Süchtig danach. Ich würde am liebsten alles nur noch irgendwie Programmieren.
Aber nun zu meinem Problem:
Ich habe mehrere Inputboxen hintereinander geschalten. Nun möchte ich wenn bei einer Inputbox abgebrochen wird eine Abfrage erstellen ob tatsächlich abgebrochen werden soll. Wenn ja dann alles zuvor eingetragene löschen. Wenn nein dann die Inputbox bei der abgebrochen wurde wieder öffnen.
Die abfrage habe ich momentan nur in einen der Codes eingefügt aber bring es nicht zum laufen kann mir jemand sagen wo das Problem ist ?
Ich habe den gesamten Code eingefügt und den Teil um den es geht habe ich fett markiert.
Vielen Dank vorab.
Sub CommandButton1_Click()
Dim i As Variant
i = InputBox("Bitte die Auftragsnummer vollst?ndig angeben. (D1A012345)", "Auftrag ?")
If i = "" Then Exit Sub
Cells(Range("A2").End(xlDown).Row + 1, 1).Select
Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = i
Call CommandButton1_Click2
End Sub
Sub CommandButton1_Click2()
Dim i As Variant
Dim iButton As Integer
i = InputBox("Was war der Grund f?r den Ausschuss ?", "Problemursache ?")
If i = "" Then iButton = MsgBox("wollen sie wirklich abbrechen ?", vbYesNo) Else
If i "" Then ActiveCell.Offset(0, 1) = i
If iButton = vbYes Then
ActiveCell.EntireRow.Delete
Exit Sub
If iButton = vbNo Then
Call CommandButton1_Click2
End If
End If
Call CommandButton1_Click3
End Sub
Sub CommandButton1_Click3()
Dim i As Variant
i = InputBox("Was wurde unternommen?", "Kurzfristige Ma?nahme ?")
If i = "" Then Exit Sub
ActiveCell.Offset(0, 2) = i
Call CommandButton1_Click4
End Sub
Sub CommandButton1_Click4()
Dim i As Variant
i = InputBox("Was ist noch zu tun ?", "Nachgelagerte Ma?nhamen ?")
If i = "" Then Exit Sub
ActiveCell.Offset(0, 3) = i
Call CommandButton1_Click5
End Sub
Sub CommandButton1_Click5()
Dim i As Variant
i = InputBox("Bitte deinen Namen eintragen ?", "Name ?")
If i = "" Then Exit Sub
ActiveCell.Offset(0, 4) = i
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target = "" Then
Target.Offset(0, 5).ClearContents
Else:
Target.Offset(0, 5) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub