springt nicht nächste lehre Zeile an
Andreas
Ich würde mich sehr freuen wenn mir jemand ganz dringend helfen könnte.
Ich habe folgendes Problem.
Ich habe eine UserForm erstellt mit einer ListBox die soweit recht gut funktioniert, die auch aus einem Forum ist.
Nun ist es so wenn ich die, dem entsprechend gesuchten Text in der UserForm ListBox doppel anklicke, wird die ListBox Zeile in die entsprechend angegebene Zeile im Tabellenblatt eingetragen. Wenn ich aber einen weiteren anklicke dann überschreibt die wiederum diese Zeile in der Liste der Tabelle.
Ich habe den Code nachfolgend eingetragen.
Schon einmal vielen Dank im Voraus!!!
Private Sub ListBox1_Dblclick(ByVal Cancel As MSForms.ReturnBoolean)
Dim intEndUp As Long
Dim intR As Long
Dim intC As Long
Dim i As Integer
If Not MsgBox("Soll " & ListBox1.List(ListBox1.ListIndex) & " eingetragen werden?", vbQuestion + vbYesNoCancel, "Frage!") = vbYes Then Exit Sub
If Sheets("Inventur").Range("A2") > "" Then
intEndUp = Sheets("Inventur").Range("A65536").End(xlUp).Row + 1
Else
intEndUp = 10
End If
intR = ListBox1.ListIndex 'geklickte Zeile
intC = ListBox1.ColumnCount 'Anzahl Spalten
'Werte aus jeder Spalte der ListBox lesen und eintragen
For i = 1 To intC
Sheets("Inventur").Cells(intEndUp, i).Value = ListBox1.List(intR, i - 1)
Next i
MsgBox ListBox1.List(intR) & " wurde eingetragen!", vbInformation + vbOKOnly, "Erfolg!"
End Sub