Frage zu Zeilennummer in ListBox
03.08.2014 14:56:46
Frank H.
Hallo Zusammen!
Allen noch einen schönen Restsonntag!
Ich versuche mittels nachstehendem Code eine ListBox zu befüllen. Da meine Daten welche in die ListBox geholt werden nicht aneinander gereiht in der Tabelle stehen, sondern immer freie Spalten dazwischen sein können und die Spalten bis IH, irgendwann gefüllt sind, weiß ich nicht wie ich die Zeilennummer in die ListBox bekomme, deshalb das Fragezeichen im Code. Wer kann helfen?
Private Sub cbMonat_Change()
Dim c, m, r As Byte
Dim y As Integer
c = 2
m = cbJahr.ListIndex * 12 + cbMonat.ListIndex + 1
y = c + m
With frmFixkosten
.ListBox1.Clear
i = 0
For lng = 3 To 100
If Sheets("Daten_Fixkosten").Cells(lng, 1).Value <> "" Then
.ListBox1.AddItem Sheets("Daten_Fixkosten").Cells(lng, 1).Value
.ListBox1.Column(1, i) = Sheets("Daten_Fixkosten").Cells(lng, y).Text
.ListBox1.Column(2, i) = Sheets("Daten_Fixkosten").Cells(lng, ?).Rows
i = i + 1
End If
Next
End With
End Sub
Danke und GrußFrank H.