Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auflisten von Datums in einer Listbox

Auflisten von Datums in einer Listbox
Datums
Hallo alle nochmal,
da ich nicht gezielt das finde was ich suche, bitte ich um eure Hilfe.
In einem Userform habe ich eine ListBox1 sowie ComboBox1.
In Zelle A2 bis A50 habe ich verschiedene Datum (immer sortiert) stehen.
Nun will ich dass im ComboBox1 zunächst alle Datum (ohne Duplikate) aufgelistet haben, im ListBox1 sollen aber, nicht zu dem Datum ausgewählten Datum die Werte anzeigen, sondern sollen alle Datums auflisten bis zu dem Zeitpunkt, z.B. wenn ich 24.09.2009 im ComboBox1 auswähle, sollen alle Datum im ListBox1 gleich / kleiner als 24.09.2009 erscheinen.
Ich hoffe ich war verständlich.... :-)
Danke und LG
Urmila

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

Betreff
Benutzer
Anzeige
AW: Auflisten von Datums in einer Listbox
25.09.2009 14:41:07
Datums
Servus,
vom Prinzip her so:
Private Sub ComboBox1_Change()
ListBox1.Clear
For i = 0 To ComboBox1.ListIndex
ListBox1.AddItem ComboBox1.List(i)
Next i
End Sub


Private Sub UserForm_Activate()
ComboBox1.AddItem Sheets(3).Cells(2, 1)
For i = 3 To 50
If CDate(Sheets(3).Cells(i, 1))  CDate(ComboBox1.List(ComboBox1.ListCount - 1)) Then
ComboBox1.AddItem Sheets(3).Cells(i, 1)
End If
Next i
End Sub
Gruß
Chris
AW: Auflisten von Datums in einer Listbox
25.09.2009 15:03:56
Datums
Hallo,
ich nehme mal an:
- deine Tabelle hat 2 Spalten "Datum - Wert" und ebenso die Listbox.
- die Tabelle heißt "Tabelle1" und in der ersten Zeile stehen Überschriften.
- Spalte A ist als Datum formatiert.
Dann könnte dir der folgende Ansatz weiterhelfen.
Gruß
Christian 

Option Explicit
Private Sub ComboBox1_Change()
Dim lngLim&, i&
Me.ListBox1.Clear
lngLim = CDate(Me.ComboBox1)
With Sheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) > lngLim Then Exit For
Next
Me.ListBox1.List = .Cells(2, 1).Resize(i - 2, 2).Value
End With
End Sub
Private Sub UserForm_Initialize()
Dim hshDat As Object, i&
Set hshDat = CreateObject("Scripting.dictionary")
With Sheets("Tabelle1")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
hshDat(.Cells(i, 1).Text) = .Cells(i, 1).Text
Next
End With
Me.ComboBox1.List = hshDat.items
End Sub

Anzeige
AW: Auflisten von Datums in einer Listbox
25.09.2009 15:13:43
Datums
Hallo Urmila,
das könnte z. B. so funktionieren:
Option Explicit
Private Sub ComboBox1_Change()
Dim iCoBo  As Integer
ListBox1.Clear
With ComboBox1
For iCoBo = 0 To .ListIndex
ListBox1.AddItem .List(iCoBo)
Next iCoBo
End With
End Sub


Private Sub UserForm_Initialize()
Dim colItem    As New Collection
Dim strItem    As String
Dim WkSh       As Worksheet
Dim lZeile     As Long
ComboBox1.Clear
Set WkSh = Worksheets("Tabelle1")
For lZeile = 2 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row
If WkSh.Cells(lZeile, 1).Value  "" Then
strItem = WkSh.Cells(lZeile, 1).Value
'           Collection liefert Fehler, wenn Wert bereits in Collection enthalten ist
On Error Resume Next
Err.Clear
'           Eintrag zur Collection hinzufügen
colItem.Add strItem, Key:="MB" & strItem
'           wenn kein Fehler vorliegt, füge den Wert in die ComboBox ein
If Err.Number = 0 Then ComboBox1.AddItem strItem
End If
Next lZeile
End Sub

Gruß Peter
Anzeige
Danke vielmals an Chris, Christian & Peter :-)
28.09.2009 08:23:13
Urmila
LG
Urmila

299 Forumthreads zu ähnlichen Themen

Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige
Liste deaktivieren, wenn Bedingung erfüllt
Timo

Hallo,
ich habe in der Zelle B13 eine Liste (über Gültigkeit--Liste) eingefügt, wo ein Nutzer zwischen den drei Optionen "Alle", "Erste Hälfte" und "zweite Hälfte" wählen kann. In Zelle B14 befindet sich ebenfalls eine ähnliche Liste auch u.a. mit der Option "Alle".
Jetzt würde ich ger...
23.09.2008 16:08:04
Thread-ID: 1011800
2 Beiträge
Webabfrage aus Liste in Liste
Holger

Hallo,
ich hab mal wieder ein Problem, bei dem ich nicht weiter komme. Hier die Datei:
https://www.herber.de/bbs/user/55676.xls
Aus den Links in Spalte C sollen die in den Spalten D bis J gefragten Werte aus den entsprechenden Webseiten ausgelesen werden. Am besten per Button, den k...
26.09.2008 11:25:00
Thread-ID: 1012552
9 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
Aufbereitung Liste mit Bedingungen
BH5925

Hallo,
anbei habe ich Musterdatei beigefügt mit entsprechender Beschreibung:
https://www.herber.de/bbs/user/59317.xls
Es soll eine große Liste mit Datensätzen so aufbereitet werden, dass Werte aus gleichartige Datensätze (Kriterium die Werte in Spalte A) zusammengefasst sollen nach...
10.02.2009 18:21:46
Thread-ID: 1049256
8 Beiträge
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 Beiträge
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
1
8
9
5
9
7
1
5
5
2
4
3
8
3
1
2
2
2
2
2
12
10
1