ich möchte beim öffnen einer InputBox die Werte der Zelle L1 in das Eingabefeld der InputBox als Vorgabe übernehmen.
Wie geht das ?
Hier mein Code.
Leider kommt auch immer noch ein Fehler wenn man auf "Abbrechen" klickt.
Kann man den abfangen ?
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
Gruß
Fred