Private Sub Worksheet_Activate()
Dim Number As Long
Number = InputBox("Bitte geben Sie eine Zahl ein", "Titel")
If IsNumeric(Number) Then
Cells(1, 1).Value = strInput
Else
MsgBox "Keine Zahl"
End If
End Sub
Private Sub Worksheet_Activate()
Dim Number As Long
Number = InputBox("Bitte geben Sie eine Zahl ein", "Titel")
If IsNumeric(Number) Then
Cells(5, 7).Value = Number
Else
MsgBox "Keine Zahl"
End If
End Sub
Private Sub Worksheet_Activate()
Dim myWert
myWert = InputBox("Bitte Wert eingeben")
If IsNumeric(myWert) Then
Cells(5, 7) = myWert
End If
End Sub
Private Sub Worksheet_Activate()
Dim einGabe
einGabe = Application.InputBox("Bitte Zahl eingeben", "Eingabe", , , , , , 1)
If Not VarType(einGabe) = vbBoolean Then Range("G5") = einGabe
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen