Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1492to1496
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
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeitliche Auswertung

Zeitliche Auswertung
09.05.2016 20:12:15
Markus
Hallo Forum,
Ich habe folgendes Anliegen: Ich möchte gerne eine zeitliche Auswertung auf einer UserForm vornehmen. Dazu wählt der Benutzer zunächst ein Startdatum und ein Enddatum aus. Anschließend erscheinen dann in der ListBox die zutreffenden Projekte mit dessen Verantwortlichen und den Ländern, welche in diesen Zeitraum fallen.
Leider reichen meine VBA Kentnnisse nicht dafür aus.
https://www.herber.de/bbs/user/105470.xlsm
Vielen Dank.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeitliche Auswertung
10.05.2016 11:17:27
ChrisL
Hi Markus
Der Autofilter wäre bedeutend einfacher ;)
Public bLoad As Boolean
Private Sub ComboBox1_Change()
Call LbLaden
End Sub


Private Sub ComboBox2_Change()
Call LbLaden
End Sub


Private Sub UserForm_Initialize()
Dim iZeile As Long
bLoad = True
With Worksheets("Tabelle1")
For iZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem .Cells(iZeile, 1)
ComboBox2.AddItem .Cells(iZeile, 1)
Next iZeile
End With
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = ComboBox2.ListCount - 1
ListBox1.ColumnCount = 3
bLoad = False
Call LbLaden
End Sub


Private Sub LbLaden()
Dim iZeile As Long
Dim iCounter As Long
Dim arList() As Variant
If bLoad Then Exit Sub
With Worksheets("Tabelle1")
ListBox1.Clear
If CDate(ComboBox1) > CDate(ComboBox2) Then
MsgBox "Start darf nicht grösser Ende sein"
Exit Sub
End If
For iZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(iZeile, 1) >= CDate(ComboBox1) And .Cells(iZeile, 1)

cu
Chris

Anzeige
AW: Zeitliche Auswertung
10.05.2016 21:39:44
Markus
Danke dir Chris - perfekt!

AW: Zeitliche Auswertung
10.05.2016 12:50:14
ChrisL
Hi Beni
Kleiner Hinweis, die Variable "zulassen" müsste jeweils wieder zurück gesetzt werden...
For intRow = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
zulassen = False
If CDate(.Cells(intRow, 1)) >= CDate(ComboBox1) And CDate(.Cells(intRow, 1)) cu
Chris

AW: Zeitliche Auswertung
10.05.2016 21:40:22
Markus
Danke auch dir, Beni

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