hallo excelfreunde,
ich versuche schon den ganzen sonntag eine fortlaufende Zeilennummer zu schreiben.
Es gelingt mir ( im beispiel als 2.Zeile gekennzeichnet) die spalte mit der Zeilennummer zwischen den spalten zu schreiben. Natürlich habe ich immer nur die 1 als zeilennummer denn so kann sie ja auch nicht in der schleife hochgezählt werden. Ich habe gefühlte 1000 versuche probiert es klappt nicht.
weiss jemand von euch rat wie ich die zeilennummer in dieser schleife dazu bringen kann das sie bei jeden durchlauf um 1 erhöht wird?
habt schon mal recht vielen dank
liebe grüsse thomas
With ListView2
.ListItems.Clear
If Not rng Is Nothing Then
For Each rng In rng.Rows
1. Zeile .ListItems.Add , , oWS1.Cells(rng.Row, 1)
2. Zeile .ListItems(.ListItems.Count).SubItems(1) = oWS1.Cells.Row
3. Zeile .ListItems(.ListItems.Count).SubItems(2) = oWS1.Cells(rng.Row, 2).Text
4. Zeile .ListItems(.ListItems.Count).SubItems(26) = rng.Row
Next rng
.ListItems.Remove (1) 'Überschriften (als Item) wieder entfernen.
End If
End With