Microsoft Excel

Herbers Excel/VBA-Archiv

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

Frage zu Zeilennummer in ListBox

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.

GrußformelHomepage


  

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"