Wert aus Zelle in InputBox übernehmen

Sub Schaltfläche3_Klicken()
Dim rngB As Range, vTemp As Variant, ii As Long, zz As Long
Dim Eingabe As String
Dim erg%
Const lngZ As Long = 1                                  ' Ausgabe ab Zeile 1
Const lngC As Long = 9                                  ' Ausgabe ab Spalte I (9)
With ThisWorkbook.Worksheets("Tabelle1")                     ' Tabellenblattnamen anpassen
Eingabe = InputBox("Bitte geben Sie die Zellen ein die getrennt werden sollen z.B. A22, _
B34,D12 usw.:", "Zelleneingabe:")
For Each rngB In Range(Eingabe)                           ' hier Bereiche angeben
If rngB.Value  "" Then
vTemp = Split(rngB.Value, ":")                      ' oder ": ")
For ii = 0 To UBound(vTemp)
.Cells(lngZ + zz, lngC + ii).Value = vTemp(ii)   ' oder Trim$(vTemp(ii))
Next ii
zz = zz + 1
End If
Next rngB
Range("L1") = Eingabe
End With
End Sub