ich bräuchte bitte eure Hilfe.
der nachstehende Code funktioniert ja soweit, was muss ich bitte ändern/erweitern wenn ich nach Eingabe in die active Zelle in die nächste (leere)Zeile springen will?
mit Selection.Offset(1, 0).Select hab ich es schon probiert, da nimmt er ja den Wert der Zelle und kopiert in nach unten.
Private Sub ListBox1_Click()
Dim wks1 As Worksheet
Set wks1 = Worksheets("Plan")
Dim i As Integer
Dim Auswahl As String
Dim X
X = ActiveCell.Address
i = ListBox1.ListIndex
If ListBox1.Selected(i) = True Then
Auswahl = ListBox1.List(i)
End If
ListBox1.ListIndex = -1
ActiveCell = Auswahl
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next
Range(X).Activate
'Selection.Offset(1, 0).Select
End Sub
BITTE UM HILFE