Office: ListBox mit bestimmten Daten aus Tabelle füllen

Helfe beim Thema ListBox mit bestimmten Daten aus Tabelle füllen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich möchte in einer ListBox alle Einträge vom heutigen Datum darstellen lassen. Das Datum zu jedem Eintrag wird immer in der Spalte B... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von surfer09, 14. April 2019.

Seite 1 von 2

SURFER09

surfer09

ListBox mit bestimmten Daten aus Tabelle füllen

Hallo zusammen,

ich möchte in einer ListBox alle Einträge vom heutigen Datum darstellen lassen. Das Datum zu jedem Eintrag wird immer in der Spalte B eingetragen. Es soll die komplette Zeile des Eintrages dargestellt werden (A-E).
Kann mir vielleicht jemand den Code verraten?
Die nächste Schwierigkeit wäre dann mit einem Button die Einträge von gestern, vorgestern,... anzuzeigen.

Danke!

Gruß surfer *wink.gif*

:)

surfer09, 14. April 2019

#1
ECON

Econ

Hallo, die Listbox muss auf entsprechend ausreichen Spalten angepasst werden.

Code:

dim lb as listbox
dim uf as userform
dim ws as worksheet
dim zeile as integer
dim zeile2 as integer
dim first as integer 'first ist die Zeilennummer der Überschrift deiner Einträge

ws = "Dein Worksheetname"

With Worksheets(ws)
zeile = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

'Überschriften
With uf.lb
.AddItem Worksheets(ws).Cells(zeile2,2)
.Column(1, 0) = Worksheets(ws).Cells(first,1)
.Column(2, 0) = Worksheets(ws).Cells(first,3)
.Column(3, 0) = Worksheets(ws).Cells(first,4)
.Column(4, 0) = Worksheets(ws).Cells(first,5)
End With

for zeile2 = first+1 to zeile 'erste Zeile die auszulesen ist ggf. anpassen
if worksheets(ws).cells(zeile2,2) = date() then

'Einträge
With uf.lb
.AddItem Worksheets(ws).Cells(zeile2,2)
.Column(1, zeile2) = Worksheets(ws).Cells(zeile2,1)
.Column(2, zeile2) = Worksheets(ws).Cells(zeile2,3)
.Column(3, zeile2) = Worksheets(ws).Cells(zeile2,4)
.Column(4, zeile2) = Worksheets(ws).Cells(zeile2,5)
End With
end if
next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Econ, 16. April 2019

#2
SURFER09

surfer09

Hallo Econ,

Danke für deinen Code! Leider funktioniert es bei mir nicht so ganz. (Fehlermeldung siehe Screenshot)
Ich habe im Code nur meinen Worksheetnamen (Kartei) ergänzt...
Ich habe mal meine Beispieldatei hochgeladen.

Code:

'Tagesansicht in Listbox
Dim lb As ListBox
Dim uf As UserForm
Dim ws As Worksheet
Dim zeile As Integer
Dim zeile2 As Integer
Dim first As Integer 'first ist die Zeilennummer der Überschrift deiner Einträge

ws = "Kartei"

With Worksheets(ws)
zeile = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

'Überschriften
With uf.lb
.AddItem Worksheets(ws).Cells(zeile2, 2)
.Column(1, 0) = Worksheets(ws).Cells(first, 1)
.Column(2, 0) = Worksheets(ws).Cells(first, 3)
.Column(3, 0) = Worksheets(ws).Cells(first, 4)
.Column(4, 0) = Worksheets(ws).Cells(first, 5)
End With

For zeile2 = first + 1 To zeile 'erste Zeile die auszulesen ist ggf. anpassen
If Worksheets(ws).Cells(zeile2, 2) = Date Then

'Einträge
With uf.lb
.AddItem Worksheets(ws).Cells(zeile2, 2)
.Column(1, zeile2) = Worksheets(ws).Cells(zeile2, 1)
.Column(2, zeile2) = Worksheets(ws).Cells(zeile2, 3)
.Column(3, zeile2) = Worksheets(ws).Cells(zeile2, 4)
.Column(4, zeile2) = Worksheets(ws).Cells(zeile2, 5)
End With
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

surfer09, 16. April 2019

#3
SURFER09

surfer09

ListBox mit bestimmten Daten aus Tabelle füllen

Anbei die Datei als ZIP

surfer09, 16. April 2019

#4
ECON

Econ

Bei tritt dieser Fehler nicht auf, dafür ein anderer:

Code:

'Format des Datumsfeldes
UserForm2019.TextBox1_Datum = Format(Now, "dd.mm.yyyy")
'Format der Uhrzeit
UserForm2019.TextBox3_Uhrzeit = Format(Now, "hh:mm")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser Code ist im Userform_Initialize.

Die Bibliothek wird nicht gefunden. Mit F1 über Format wird auch auf die DLL verwiesen. Ich werden dem nicht näher nachgehen, da dies nur mich betrifft.

Jedenfalls führt das auskommentieren dieses Abschnitts bei mir zum erfolgreichen Laden der Daten nach der Initialisierung der UserForm.

An welcher Stelle tritt der Fehler denn bei dir auf?

Econ, 17. April 2019

#5
SURFER09

surfer09

Ich habe es jetzt gerade noch einmal getestet. Ich habe den Code auch unter "UserForm_Initialize" hinzugefügt und sobald ich den Button "Kartei bearbeiten" anwähle kommt dann der Fehler.
Ich hatte eben auch schon einen anderen Beitrag gelesen wo "Set ws = "Tabellenblattname" stand. Wenn ich das aber eingebe, dann kommt die Meldung "Fehler beim Kompilieren - Typen unverträglich"

surfer09, 17. April 2019

#6
ECON

Econ

Kommentiere mal dieselben Zeilen aus. Ich kann es im Moment leider nicht nachvollziehen, da der Code bei mir funktioniert.

Code:

Private Sub UserForm_Initialize()

'Fenster mittig vom Arbeitsblatt öffnen
'Dim xTop As Long, xLeft As Long
'
' Me.StartUpPosition = 0
' With Application
' xLeft = .Left + .Width / 2 - Me.Width / 2
' xTop = .Top + .Height / 2 - Me.Height / 2
' End With
' With Me
' .Left = xLeft
' .Top = xTop
' End With

'Inhalt der Auswahlbox Tag
With Me.ListBox1_Tag
.AddItem "Montag"
.AddItem "Dienstag"
.AddItem "Mittwoch"
.AddItem "Donnerstag"
.AddItem "Freitag"
End With

'Format des Datumsfeldes
'UserForm2019.TextBox1_Datum = Format(Now, "dd.mm.yyyy")
'
''Format der Uhrzeit
'UserForm2019.TextBox3_Uhrzeit = Format(Now, "hh:mm")

'Inhalt der Auswahlbox Rubrik
With Me.ListBox3_Rubrik
.AddItem "Wichtig"
.AddItem "Notiz"
.AddItem "Telefonat"
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Econ, 17. April 2019

#7
SURFER09

surfer09

ListBox mit bestimmten Daten aus Tabelle füllen

Es bleibt bei dem gleichen Fehler, auch wenn ich die Bereiche auskommentiere. Sobald ich deinen Code für die ListBox wieder entferne, kann ich die UserForm wieder aufrufen.

surfer09, 17. April 2019

#8
ECON

Econ

von surfer09

Ich habe es jetzt gerade noch einmal getestet. Ich habe den Code auch unter "UserForm_Initialize" hinzugefügt und sobald ich den Button "Kartei bearbeiten" anwähle kommt dann der Fehler.
Ich hatte eben auch schon einen anderen Beitrag gelesen wo "Set ws = "Tabellenblattname" stand. Wenn ich das aber eingebe, dann kommt die Meldung "Fehler beim Kompilieren - Typen unverträglich"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich kenne den Beitrag nicht, aber vielleicht hilft er ja. Bei Set müsstest du folgendes beachten

Code:

dim ws as worksheet
dim ws_name as string

ws_name = "..." 'Das Worksheet mit einem solchen Namen muss existieren

set ws = Worksheets(ws_name)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

Econ, 17. April 2019

#9
SURFER09

surfer09

Oh man.. auch hier läuft er wieder auf den Fehler. Ich verstehe das nicht. Warum läuft der Code bei dir durch und bei mir immer auf einen Fehler?! So langsam bion ich echt am verzweifeln und gefühlt habe ich schon sämtliche ListBox Forums Beiträge durchprobiert. *frown.gif*

surfer09, 17. April 2019

#10
Beverly Erfahrener User

Hi,

verlinkst du dann bitte dein Thema zu dem Thread im anderen Forum?

Beverly, 17. April 2019

#11
SURFER09

surfer09

Ich meine, das ich mir diesen Beitrag angesehen hatte mit dem "set" Befehl.

https://stackoverflow.com/questions/...e-to-worksheet

surfer09, 17. April 2019

#12
Beverly Erfahrener User

ListBox mit bestimmten Daten aus Tabelle füllen

Und ich meine den Thread, den du im anderen Forum eröffnet hast - erkennbar an der dort hochgeladenen Mappe, die identisch mit der hier hochgeladenen Mappe ist.

Beverly, 17. April 2019

#13
DRAMBELDIER

drambeldier

Moin,

nach Entfernen der nicht aufgelösten Referenzen wg. Format läuft alles durch.

Nebenbei: Eingabe von Wochentag und Datum kann zu Widersprüchen führen; lieber den Wochentag aus dem Datum bestimmen.

drambeldier, 17. April 2019

#14
SURFER09

surfer09

\@ Beverly: https://www.computerbase.de/forum/th...ellen.1867511/

@ drambeldier: Wenn du mir jetzt noch sagst, wie ich aus dem Datum den Tag bestimme *Smilie Das ist meine erste VBA-Geschichte in Excel, soweit bin ich mit dem Ganzen noch nicht. Und es sind mit Sicherheit noch weitere Verbesserungen möglich *wink.gif* Aber ich bin schon froh, das ich das Teil so aufbauen konnte wie es jetzt ist.

surfer09, 17. April 2019

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

ListBox mit bestimmten Daten aus Tabelle füllen

Die Seite wird geladen...

ListBox mit bestimmten Daten aus Tabelle füllen - Similar Threads - ListBox bestimmten Daten
Listbox wird nicht breiter, Schriftgrösse ändert sich
in Microsoft Excel Hilfe
Listbox wird nicht breiter, Schriftgrösse ändert sich: Hallo, ich habe ein Formular dessen Breite ich mit der Maus ändern kann. Im Formular habe ich einen Rahmen und darin eine Listbox deren Breite an die Formularbreite angepasst wird....
Listbox Sortierung
in Microsoft Excel Hilfe
Listbox Sortierung: Hallo an die Gruppe, ich benötige Hilfe bei der Sortierung eines ListenFeldes. Ich habe eine Listbox in einem UserForm diese wird bei der Initalisierung so gefüllt. Private Sub...
Suchfunktion für Listbox in Textbox
in Microsoft Excel Hilfe
Suchfunktion für Listbox in Textbox: Hallo an alle hier im Forum, ich bastel mal wieder ein wenig rum. Ich habe ein 2 spaltige Listbox. In der 1. Spalte stehen Zahlen von einstellig bis sechsstellig und in der 2. Spalte Namen. Im...
Listbox befüllen
in Microsoft Excel Hilfe
Listbox befüllen: Hallo mein Name ist Carsten und ich bin neu hier im Forum und habe gleich eine Frage. Ich habe eine Userform mit verschiedenen voneinander abhängigen Listboxen. Das klappt auch soweit. Nur der...
Listbox füllen wenn zelle daneben leer
in Microsoft Excel Hilfe
Listbox füllen wenn zelle daneben leer: Moin Moin zusammen, Ich möchte eine Listbox mit der Spalte A befüllen aber nur mit den Werten B leer ist. z.B A2 = 123 B2 = Test A3 = 321 B3 = Nun sollte in der ListBox nur der Wert...
Ordnernamen, die Kriterien erfüllen in Listbox aufführen
in Microsoft Excel Hilfe
Ordnernamen, die Kriterien erfüllen in Listbox aufführen: Hallo Zusammen, ich suche nach einer function, mit der ich alle Ordner (ab einem fest vorgegebenen Startverzeichnis), deren Namen gewisse mehrere Kriterien enthalten (z.B. : beginnend mit...
VBA In Listbox bestimmten Eintrag ändern
in Microsoft Excel Hilfe
VBA In Listbox bestimmten Eintrag ändern: Guten Tag, ich möchte wenn ich auf den Button "Soldaten anlegen/ändern" Klicke in der zweiten Ansicht "Soldaten Suchen", wenn ich z.B. nach dem Namen Müller Suche, die Daten ändern können. Soweit...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden