Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1684to1688
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
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Monat filtern und in Listbox

Nach Monat filtern und in Listbox
05.04.2019 12:13:48
Olga
Hallo,
ich habe ein Problem mit dem Filtern nach Monate.
Wenn in Spalte "A" ein Text steht, kommt immer ein Laufzeitfehler.
Wie kann ich dies verhindern?
Danke!
Gruß
Olga
https://www.herber.de/bbs/user/128938.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: Nach Monat filtern und in Listbox
05.04.2019 13:02:59
Werner
Hallo Olga,
quick and dirty: 
Option Explicit
Sub DatumSuchen()
Dim lngIndex  As Long
Dim lngCount  As Long
Dim Lol As Integer
ListBox1.Clear
ListBox1.ColumnCount = 2
lngCount = cboMonate.List(cboMonate.ListIndex, 1)
With ThisWorkbook.Worksheets("TB1")
For lngIndex = 2 To .UsedRange.Rows.Count
On Error GoTo weiter
If Month(.Cells(lngIndex, 1).Value) = lngCount Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = .Cells(lngIndex, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(lngIndex, 2).Value
End If
weiter:
On Error GoTo 0
Next
End With
End Sub
Gruß Werner
Anzeige
AW: Nach Monat filtern und in Listbox
05.04.2019 13:21:32
Olga
Hallo Werner,
Danke für Deine Hilfe!
Leider funktioniert das nur für mein Beispiel.
Wenn ich jetzt noch März-Dez,
jeweils
Datum
01.03. usw.
Datum
01.12.
hinzufüge
kommt wieder die Fehlermeldung.
Gruß Olga
AW: Nach Monat filtern und in Listbox
05.04.2019 13:34:18
Werner
Hallo Olga,
so: 
Option Explicit
Sub DatumSuchen()
Dim lngIndex  As Long
Dim lngCount  As Long
Dim Lol As Integer
ListBox1.Clear
ListBox1.ColumnCount = 2
lngCount = cboMonate.List(cboMonate.ListIndex, 1)
With ThisWorkbook.Worksheets("TB1")
For lngIndex = 2 To .UsedRange.Rows.Count
If IsDate(.Cells(lngIndex, 1)) Then
If Month(.Cells(lngIndex, 1).Value) = lngCount Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = .Cells(lngIndex, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(lngIndex, 2).Value
End If
End If
Next
End With
End Sub
Gruß Werner
Anzeige
AW: Nach Monat filtern und in Listbox
05.04.2019 13:38:02
Olga
Hallo Werner,
vielen Dank für Deine Hilfe.
Funktioniert super.
Gruß
Olga
Gerne u. Danke für die Rückmeldung. o.w.T.
05.04.2019 13:54:39
Werner

301 Forumthreads zu ähnlichen Themen

Datum aus Tag, Jahr, KW auslesen
Stephan

Gibt es eine Möglichkeit das Datum auszulesen aus:
Mo = Montag
Jahr=2008
KW=1
Besten Dank
Stephan
16.08.2008 22:23:00
Thread-ID: 1002369
7 Beiträge
Anzeige
Monat und Jahr aus Datum extrahieren
ItsMyLife

Hallo,
für ein Diagramm will ich die Anzahl von Datensätzen die nach dem Datumsfeld in einen Monat fallen ermitteln.
Wie kann ich den Monat und das Jahr aus einem Datumsfeld extrahieren.
Ich meine nicht die Anzeige (Format Zellen), sondern den tatsächlichen Feldinhalt?
19.05.2009 14:21:13
Thread-ID: 1076146
3 Beiträge
Geburtsdatum nach Tag und Monat sortieren
Susann

Hallo,
wie kann ich eine Spalte so sortieren, dass er mir das Geburtsdatum nicht auch nach dem Jahr sortiert, also so, dass ich z.B. sehen kann, dass Hans am 20.12.1980 geboren ist und Fritz am 20.12.1930 und beiden sozusagen gratulieren kann :-)
Vielen lieben Dank mal wieder für eure...
05.06.2009 14:45:45
Thread-ID: 1079470
4 Beiträge
Anzeige
Monat und Jahr in 2 Spalten
Dagmar

Hallo alle miteinander,
in einer Excel-Liste habe ich in einer Spalte den Monat( z. B. 08), in der nächsten das Jahr (z. b. 2009). Ist es möglich daraus wieder ein funktionierendes Datum zu machen? Als Tag darf immer der 1. gewählt werden. Mit Spalten zusammenführen (&) hat es nicht gek...
03.12.2009 17:06:26
Thread-ID: 1121640
4 Beiträge
Aus Monats und Jahreszahlen ein Datum erzeugen.
Josef_T

Guten Abend zusammen.
Habe in C1 eine zweistellige Monatszahl und in D1 eine vierstellige Jahreszahl.
zB. so: in C1 steht 08 (August)und in D1steht 2010. Der Monat und das
Jahr wird händig eingetragen. Nun möchte ich, dass in B1 aus den Daten ein Datum erstellt wird,
dass immer...
18.12.2009 21:37:54
Thread-ID: 1124989
4 Beiträge
Datum nach Quartalen filtern
Ben

Hallo zusammen,
hab jetzt über 2 Stunden im Forum gesucht, aber nichts hat funktioniert.
Folgendes Problem:
Ich habe eine Spalte mit mehreren Daten (TT/MM/JJJJ).
Nun möchte ich, mit Hilfe eines Command Buttons (VBA) nach einem Quartal filtern (z.B. Quartal I, 2009), so dass nur...
21.01.2010 20:01:06
Thread-ID: 1131934
8 Beiträge
Spalte nach Datum durchsuchen u danach Filtern
Marta

Hey Leute,
stehe vor meinem nächsten Problem. Nur leider fällt mir im Moment gar kein Lösungsweg ein, nicht einmal Ansatzweise.
Also das Szenario sieht folgendermaßen aus:
Ich habe eine Spalte mit verschiedenen Datumsangaben ab August 2009. Diese Spalte wird jeden Monat mit dem aktu...
03.08.2010 14:32:53
Thread-ID: 1170220
9 Beiträge
Nach Datum Filtern
Sebastian

Hallo Profis,
mal eien kurze Frage.
Ich habe in einer Tabelle "Datum" in Spalte E ein fordlaufendes Datum stehen. Jetzt möchte ich gerne ein Listenfeld mit der Monatsauswahl machen in dem man einen Monat wählen kann und dann alle anderen ausbledet.
In Spalte C hole ich mir den Mona...
26.02.2011 10:23:26
Thread-ID: 1202859
2 Beiträge
Anzeige

Links zu Excel-Dialogen

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
6
4
2
3
8
3
3
7
8
1
5
8
4
1
9
7
8
2
3
3
19
1
4
2
2