ich bin VBA Neuling und würde die Frage stellen, ob folgender Code so geschrieben werden kann. Ab
und zu kommt ein Laufzeitfehler. Ich kann aber leider nicht sagen wann.
Private Sub CommandButton1_Click()
lngRow = ListBox1.ListIndex + 1
If ListBox1.ListIndex = -1 Then
MsgBox "Keinen Eintrag aus ListBox ausgewählt"
Else
Sheets(1).Range(Cells(lngRow, 1), Cells(lngRow, 3)).Copy
Sheets(1).Range(Cells(lngRow, 1), Cells(lngRow, 3)).Insert Shift:=xlDown
Application.CutCopyMode = False
End If
Unload UserForm1
UserForm1.Show
End Sub
Die Daten (Spalte A bis C) werden in die ListBox eingelesen. Ein Datensatz wird in der ListBox markiertund sobald der CMB1 gedrückt wird, soll der Datensatz eine Zeile tiefer in der Excel Tabelle und in der
ListBox kopiert werden. Wird kein Datensatz ausgewählt, kommt eine Fehlermeldung.
Gruß
Christian