Tabelle über Listenfeld füllen
15.07.2008 09:57:11
Franz
über ein Listenfeld "lstvalues" in meinem Userform übernehme ich die selektierten Daten in meine Tabelle3,
funktioniert soweit. Wenn meinen Exceltabelle bzw. Userform geschlossen und neu geladen wird, und dann Einträge selektiert werden, dann werden bestehende Datenzeilen überschieben. Das darf nicht sein, es sollte nur in leere Zeilen die markierten Text übernommen werden. Wie muss ich den Code abändern das funktioniert.
Gruß Franz
Sub buttonübernahmeDatenTabelle3()
Dim iRow As Integer, iCol As Integer, iZei As Integer
iZei = 9 'ab Zeile 9 werden die Daten eingetragen
For iRow = 0 To lstValues.ListCount - 1
If lstValues.Selected(iRow) Then
iZei = iZei + 1
Tabelle3.Cells(iZei, 1).Value = Me.lstValues.List(iRow, 0)
Tabelle3.Cells(iZei, 3).Value = Me.lstValues.List(iRow, 1)
End If
Next iRow
End Sub