Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
Screenshot zu ListBox	ListBox-Seite mit Beispielarbeitsmappe aufrufen

Frage zu Zeilennummer in ListBox

• Frage zu Zeilennummer in ListBox von Frank H. vom 03.08.2014 14:56:46
• AW: Frage zu Zeilennummer in ListBox - von Hajo_Zi am 03.08.2014 15:01:29
  • oder nur - von Hajo_Zi am 03.08.2014 15:14:52
    • AW: oder nur - von Frank H. am 03.08.2014 15:19:10
• AW: .ListBox1.Column(2, i) = lng o.r.T. - von Gerd L am 03.08.2014 15:04:15
  • AW: .ListBox1.Column(2, i) = lng o.r.T. - von Frank H. am 03.08.2014 15:18:03

Betrifft: Frage zu Zeilennummer in ListBox von: Frank H.
Geschrieben am: 03.08.2014 14:56:46

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.

Betrifft: AW: Frage zu Zeilennummer in ListBox von: Hajo_Zi
Geschrieben am: 03.08.2014 15:01:29

Hallo Frank,

das ist Y da Du ja die Zeile haben möchtest von dem Eintrag der davor gemacht wurde. Aber da kannst Du auch irgendwas zwischen 1 und 16084 eintragen, da die Zeilennummer überall gleich ist.

Betrifft: oder nur von: Hajo_Zi
Geschrieben am: 03.08.2014 15:14:52

=lng

Gruß Hajo

Betrifft: AW: oder nur von: Frank H.
Geschrieben am: 03.08.2014 15:19:10

Hallo Hajo!

Ja, genauso. Auch dir allerherzlichsten Dank!

Gruß Frank H.

Betrifft: AW: .ListBox1.Column(2, i) = lng o.r.T. von: Gerd L
Geschrieben am: 03.08.2014 15:04:15

Hallo Frank,

sieh im Betreff.

Gruß Gerd

Betrifft: AW: .ListBox1.Column(2, i) = lng o.r.T. von: Frank H.
Geschrieben am: 03.08.2014 15:18:03

Hallo Gerd!

Funzt bestens! Danke!

Gruß Frank H.

Beiträge aus den Excel-Beispielen zum Thema "Frage zu Zeilennummer in ListBox"