Ausnahme in schleife
01.03.2016 18:45:14
Thomas
ich fülle mit dem untenstehenden Code ein listview per schleife.
Soweit so gut. nun habe ich aber das problem das ich in der spalte 2 und 3 ein uhrzeitformat habe welches ich auch gern so mit im listview haben würde.
Mein gedanke war dies mit
'###############################################################################################
Select Case lngSp ' dies geht so nicht
Case 2, 3
.ListItems(n).ListSubItems.Add , , Format(lngSp, "mm:hh")
End Select
'#################################################################################################
zu lösen. nun ja was soll ich noch sagen geht nicht ( bitte nicht über den versuch lachen ich kann es einfach nicht ) Ich erhalte die Meldung "Objekt nicht gefunden". Ich denke ich brauch nicht fragen was ich falsch mache ich denke das ist von anfang bis ende murks) Kann mir jemand mal zeigen wie ich in einer solchen schleife eine ausnahme oder besser eine spalte ein uhrzeitformat einlesen könnte?
besten dank vorab für das Interesse
liebe grüsse thomas
With Me.ListView2
.ListItems.Clear
'Alle Zeilen durchgehen (incl. Überschrift)
Set rng2 = Sheets("testdaten").Range("A1:m100")
For lngZe = 1 To rng2.Rows.Count
.ListItems.Add , "x" & lngZe, rng2.Cells(lngZe, 1)
'zweite Spalte bis letzte Spalte
For lngSp = 2 To rng2.Columns.Count
.ListItems(lngZe).SubItems(lngSp - 1) = rng2.Cells(lngZe, lngSp)
'###############################################################################################
Select Case lngSp ' dies geht so nicht
Case 2, 3
.ListItems(n).ListSubItems.Add , , Format(lngSp, "mm:hh")
End Select
'#################################################################################################
Next lngSp
Next lngZe
.ListItems.Remove (1) 'Überschriften (als Item) wieder entfernen.
End With
Me.Caption = Space(10) & Me.ListView2.ListItems.Count & " Zeilen"