Guten Morgen, kann mir jemand sagen, was daran falsch ist ?
Sub AuswahllisteAnzeigen()
Dim auswahl As String
Dim auswahlRange As Range

' Auswahlliste definieren
Set auswahlRange = Sheets("Belegnummer").Range("F2:F10")

' Auswahlliste anzeigen
auswahl = Application.InputBox(Prompt:="Bitte eine Option auswählen:", Type:=8, Title:="Auswahlliste", Default:=auswahlRange.Cells(1).Value, _
Left:=Application.Caller.Left + Application.Caller.Width, Top:=Application.Caller.Top)

' Überprüfen, ob eine Option ausgewählt wurde
If Not auswahl Is Nothing Then
' Wert in Zelle D32 des Blatts "Lieferant" eintragen
Sheets("Lieferant").Range("C20").Value = auswahl
End If
End Sub


Es soll eine inputbox kommen mit einer Auswahlliste Tabellenblatt "Belegnummer" und wenn ich dann auswähle dann soll ich es den Tabellenblatt Lieferant C20 eintragen.
Jetzt kommt bei auswahl einen Fehler

If Not auswahl Is Nothing Then

Typen unverträglich.

Hoffe ihr könnt mir helfen. Danke