Ich würde gerne mit einem Makro eine Inputbox aufrufen einen Wert eingeben und diesen in die Zelle A1 in der Tabelle1 eintragen lassen.
Kann mir da wer weiterhelfen?
Danke
Sub test()
Dim Wert
Wert = InputBox("Geben Sie einen Wert ein:")
If Wert <> "" Then
Sheets("Tabelle1").Range("A1") = Wert
End If
End Sub