Hallo Zusammen!
In ListBox1 auf einer UF werden mir Werte aus einer Tabelle angezeigt und auch immer wird die Zeilennummer mit angezeigt. Nun möchte ich gern, dass wenn ich einen Eintrag in der ListBox ausgewählt habe, dass dann unterhalb dieses Eintrages (also anhand der Zeilennummer) eine neue Zeile eingefügt wird. Wie muss der Code dafür aussehen? Danke euch schon jetzt!
So wird dike ListBox gefüllt:
Sheets("Ferien").Activate
With frmDatenerfassung
.ListBox1.Clear
i = 0
For lng = 2 To ActiveSheet.UsedRange.Rows.Count
If Sheets("Ferien").Cells(lng, 1) > CDbl(cbJahr) Then Exit For
If Sheets("Ferien").Cells(lng, 1).Value = CDbl(cbJahr) Then
.ListBox1.AddItem Sheets("Ferien").Cells(lng, 1).Value
.ListBox1.Column(1, i) = Sheets("Ferien").Cells(lng, 2).Text
.ListBox1.Column(2, i) = Sheets("Ferien").Cells(lng, 3).Text
.ListBox1.Column(3, i) = Sheets("Ferien").Cells(lng, 4).Text
.ListBox1.Column(4, i) = lng
i = i + 1
End If
Next
End With
Gruß Frank H.