rivate Sub B1_Click()
Dim varZahl As Integer
On Error GoTo addError
varZahl = InputBox("Bitte eine Zahl eingeben", "Zahl")
Sheets("Tabelle1").Range("A1").Value = varZahl
Exit Sub
addError:
MsgBox "Keine Zahl eingegeben, abbruch!"
Exit Sub
End Sub
Private Sub B2_Click()
Dim varFakt As Integer
On Error GoTo addError
varFakt = InputBox("Bitte einen Faktor eingeben", "Faktor")
Sheets("Tabelle1").Range("B1").Value = varFakt
Exit Sub
addError:
MsgBox "Keine Zahl eingegeben, abbruch!"
Exit Sub
End Sub
was muss ich tun oder wie geht das?