Listview

Hallo Uwe
Vielen lieben Dank dafür, ja die Listview wir nur als Schaufenster benützt. Weil wir müssen für die Mitarbeiter die Arbeitszeit errechnen danach werden die Daten in ein anderes Programm übertragen.
Ich habe dein Code1zu 1 übernommen leider funktioniert er nur teilweise, beim einfügen werden die Tage doppelt und dreifach eingefügt.
der Rest nicht.
So sieht es bei mir aus:


Private Sub COMBEinfügen_Click()
Worksheets("Übersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Label2.Caption
Worksheets("Übersicht").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = TextBox1.Text
Worksheets("Übersicht").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = CoBrevier.Text
ListviewLaden
End Sub


Private Sub UserForm_Initialize()
With Me.ListView1
.FullRowSelect = True
.View = 3
.LabelEdit = 1
.Gridlines = True
.HideSelection = False
.AllowColumnReorder = False
End With
With ListView1.ColumnHeaders
.Add , , Tabelle1.Cells(1, 1), 65   'Tag
.Add , , Tabelle1.Cells(1, 2), 65    'Datum
.Add , , Tabelle1.Cells(1, 3), 220 'xxxxxxxxxx
.Add , , Tabelle1.Cells(1, 4), 75   'Beginn
.Add , , Tabelle1.Cells(1, 5), 75  'Ende
.Add , , Tabelle1.Cells(1, 6), 65  'Pause
.Add , , Tabelle1.Cells(1, 7), 65    'Korekturzeit
End With
ListviewLaden
TextBox1.Value = Format(Now, "dd.mm.yyyy")
Label1.Caption = Format(CDate(TextBox1.Text), "mmmm")
Label2.Caption = Format(CDate(TextBox1.Text), "dddd")
Label3.Caption = Format(CDate(TextBox1.Text), "yyyy")
Dim ZeileMax As Long
ZeileMax = Tabelle2.UsedRange.Rows.Count
With Me.CoBRe
.RowSource = "tabelle2!A2:A90" & ZeileMax
.ListIndex = 0
.ListRows = 10
.ForeColor = RGB(0, 0, 255)
End With
End Sub


Private Sub ListviewLaden()
Dim i As Long, iLetzte As Integer, y As Long
iLetzte = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
With ListView1
.ListItems.Clear
For i = 2 To iLetzte
For y = 1 To 2
.ListItems.Add , , Tabelle1.Cells(i, 1)
.ListItems(i - 1).SubItems(y) = Tabelle1.Cells(i, y + 1)
Next y
Next i
End With
End Sub

Könnest du bitte noch mal überprüfen
Besten Dank dafür
Gruß
Dani

Hallo Dani,


For y = 1 To 2
.ListItems(i - 1).SubItems(2) = Tabelle1.Cells(i, 2 + 1)
.ListItems(i - 1).SubItems(3) = Format(Tabelle1.Cells(i, 3 + 1), "hh:mm")
.ListItems(i - 1).SubItems(4) = Format(Tabelle1.Cells(i, 4 + 1), "hh:mm")
.ListItems(i - 1).SubItems(5) = Format(Tabelle1.Cells(i, 5 + 1), "hh:mm")
.ListItems(i - 1).SubItems(6) = Format(Tabelle1.Cells(i, 6 + 1), "hh:mm")
Next y

Wenn Du das einfach in deutsche Sprache liest:
ich nehme die Werte 1 in die Variable y und mache alles bis zum "next"
dann nehme ich die Werte 2 in die Variable y und ..bis next.
Was bewirkt den y=1 oder den y=2 in dem For-Next-Block? Du läufst zweimal genau demselben Code durch. Nichts ist darin von y abhängig.
Probiere mal mit For y=5000 To 5032
Es wird genau demselben Ergebnis liefern, nur dass dann 33 mal das gleich gemacht wird, anstatt 2 mal.
Der Grund, warum mein Code nicht funktioniert (ich habe keine Datei von Dir bekommen und ListView auch nicht nachgebaut. ListView kenne ich nicht), ist dass der ListView-Index mit 1 und nicht mit 0 anfängt.
Daher sollte folgende Code funkionieren (siehst Du die unterschied zu vorher):


Private Sub ListviewLaden()
Dim i As Long
Dim Idx As Long
With ListView1
.ListItems.Clear
For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
.ListItems.Add , , Tabelle1.Cells(i, 1).Value
Idx = .ListItems.Count
.ListItems(Idx).SubItems(2) = Format(Tabelle1.Cells(i, 3), "hh:mm")
.ListItems(Idx).SubItems(3) = Format(Tabelle1.Cells(i, 4), "hh:mm")
.ListItems(Idx).SubItems(4) = Format(Tabelle1.Cells(i, 5), "hh:mm")
.ListItems(Idx).SubItems(5) = Format(Tabelle1.Cells(i, 6), "hh:mm")
.ListItems(Idx).SubItems(6) = Format(Tabelle1.Cells(i, 7), "hh:mm")
Next i
End With
End Sub

Es ist dabei wichtig, dass der Zähler für den ListView (idx) unabhängig von Zeilennummer in der Quelle (i) läuft. Nur so kannst Du vom Startzeile 2 auf Startzeile x wechseln, ohne an 6 verschiedenen Stellen etwas anpassen zu müssen.
Übrigens: warum überspringst Du


.ListItems(Idx).SubItems(1) = Tabelle1.Cells(i, 2)

?
VG
Yal

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listview

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread