Listbox-Einträge unvollständig

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
eigentlich müsste man zu deinem Code sehr viel sagen, denn dein Programmierstil ist nunmal vorsichtig formuliert "OldSchool"
aber ich beschränke mich mal auf den Grundfehler:
die Werte der ersten Spalte fügst du mit .AddItem korrekt am Ende der Liste ein.
die Werte der weitern Spalten schreibst du immer an die gleiche Stelle in der ersten Zeile ein und damit überschreibst du sie immer wieder
diese müssen aber unter angabe der Zeilen- und Spaltennummer ins List-Array geschrieben werden.
Weitere Tipps:
- da der Code im Modul der Userform steht, brauchst du die Userform nicht als Objekt in der Objektkette aufführen. Diese wird automatisch hinzugefügt.
- Aktionen, die im Schleifendurchlauf immer gleich sind, sollten nicht in der Schleife ausgeführt werden, sondern davor oder danach. (hier bespielsweise Anzahl Spalten und Spaltenbreite)
- nimm die Listbox als WITH-Objekt
für dein Einsprungpunkt Datenlogger: sollte der Code dann so aussehen:

With .lstDatenlogger
.AddItem ActiveCell.Value & " °C" 'Messwert
.List(.ListCount - 1, 1) = ActiveCell.Offset(0, -3).Value 'Index
.List(.ListCount - 1, 2) = ActiveCell.Offset(0, -2).Value 'Datum
.List(.ListCount - 1, 3) = Format(Cells(i, 3), "hh:mm") & " Uhr" 'Uhrzeit
End With

gruß Daniel

hallo Daniel,
vielen Dank für deinen Beitrag
du hast sicherlich Recht dass mein Programmierstil nicht von Professionalität geprägt ist.
Ich habe nie Programmieren gelernt, habe es mir als Autodidakt beigebracht, nutze es auch nicht beruflich
sondern nur für private Zwecke und bin froh dass es funktioniert und das ist für mich wichtig.
Vielleicht arbeitest du in der Programmierbranche, ich kann es nicht wissen und nehme dir daher deine Stellungnahme auch keineswegs übel.
Nun zu meinem Problem: wenn ich deinen vorgeschlagenen Programmiercode anstelle meiner WITH-Anweisung einfüge erhalte ich die Fehlermeldung: Fehler beim Kompilieren
an welcher Stelle muss denn

.lstDatenlogger.ColumnCount = 5
.lstDatenlogger.ColumnWidths = "100;80;100;100;100"

eingefügt werden?
hast du deinen Programmiercode probeweise in meine vorh. Programmierung eingefügt?
mfG
reiner

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox-Einträge unvollständig

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread