irgendwas habe ich übersehen. Warum wird die Zahl die ich in die Inputbox eintrage nicht in die Zelle A1 geschrieben?
Danke für die Info.
Sorry, ich finde auch, dass der Code jetzt nicht so schwierig ist. Aber anscheinend ist alles möglich :-(
VG Eisi :-)
Sub Uebung()
Description:
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim MyInput As String
MyInput = InputBox("Das ist eine Übung", "Maske", "Gebe eine Zahl ein")
Range("A1").Value = MyInput
endmacro:
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
Application.DisplayAlerts = True
Application.EnableEvents = True
MsgBox "Complete"
End Sub