ComboBoxDaten in Abhängigkeit filtern o. Userform

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ComboBox1_Change() 'Combobox mit Monatsauswahl 'Setzen der Tabellen-Objekte Set objWksData = Worksheets(strDaten) Set objWksAuswahl = Worksheets(strAuswahl) 'Auswahlliste Aktualisieren Call AuswahllisteMonat(Me.ComboBox1.Value) 'Listfillrange der Comboboxen in Spalte I aktualisieren Call ListFillRangeCombos_I("Auswahl.Bezeichnung") End Sub

Option Explicit 'Konstanten im Blatt mit den Auswahldaten Private Const strDaten As String = "Tabelle1" 'Tabellenblatt-Name (Blatt mit den "X") Private Const lngDataZ1 As Long = 3 '1. Zeile mit Nummer Private Const lngSpJanuar As Long = 5 'Nummer der Spalte mit x im Monat Januar Private Const lngSpMonat As Long = 4 'Anzahl Spalten je Monat 'Konstanten im Blatt mit den ComboListen (nur erforderlich für Zwischenspeicherbuttons) Private Const lngEinZ1 As Long = 3 'Zeile der 1. Combobox in Spalte I 'Konstanten im Blatt mit den Auswahllisten Private Const strAuswahl As String = "Kalender" 'Tabellenblatt-Name Private Const lngAuswNummer As Long = 3 'Spalte mit Nummer in Auswahlliste Private Const lngAuswZ1 As Long = 3 '1. Zeile der Auswahlliste 'Objektvariablen für die Tabellenblätter Private objWksData As Worksheet 'Tabellenblatt mit Auswahldaten Private objWksEingabe As Worksheet 'Tabellenblatt mit Comboboxen (nur für Zwischenspeicher- _ Buttons) Private objWksAuswahl As Worksheet 'Tabellenblatt mit Auswahllisten Private arrSpalteI() 'Array zum Zwischenspeichern der Werte in Spalte

Hallo Franz
Da hast du recht, habe in der zwischenzeit weiterprobiert und dann rausgefunden, das ich zwar alles kopiert habe, aber immer in die unterschiedlichen Tabellenblätter...wie halt die anmerkung dahinter stand...
also zu auswahllisten usw. hab dann alles wie in der Beispieltabelle in die Comboliste getan und es ging...
aber nun hab ich das nächste kleine problem entdeckt, er zeigt mir nicht alle daten; die mit "X" sind; je monat an.
ich hab ja pro monat 4 Spalten (quasi für jede Woche im Monat eine)... und die "X" sind nicht nur in der ersten spalte eines monats..... ; es gibt auch bezeichnungen, wo in der zeile in allen 4 spalten des monats ein x steht, (diese sache ist so zu sagen jede woche vertreten)
was muß ich jetzt noch ändern, das die alle gefunden werden?
wenn ich den mai zum Bsp. nehme, sehe ich 6 auswahldaten, aber in der Tabelle sind es 24...
vielen dank ,hoffe du kannst mir nochmal helfen
achso, frage noch zu den Buttons zum Speichern, brauche ich die oder kann man die auch weglassen?
viele grüße (auch ans gesamte forum)
Andreas

Hallo Andreas,
zur Erfassung aller 4 Spalten eines Monats muss noch eine weitere Prüfschleife eingebaut werden.
siehe Änderung im Anschluss.
Die Buttons zum Zwischenspeichern sind nur dann relevant, wenn du den Monat wechseln und anschließend die Werte des vorherigen Monats eintragen möchtest.
Gruß
Franz


Private Sub AuswahllisteMonat(strMonat As String)
'Aktualisert die Auswahlliste für den Monat entsprechend den gesetzten "x"
Dim intMonat As Integer, intI As Integer
Dim lngZeile As Long, lngZeileAusw As Long, lngSpalteX As Long
With objWksAuswahl
'Alte Daten der Auswahlliste löschen
.Range(.Cells(lngAuswZ1, lngAuswNummer), _
.Cells(lngAuswZ1, lngAuswNummer).End(xlDown).Offset(0, 1)).ClearContents
lngZeileAusw = lngAuswZ1 - 1
.Cells(lngAuswZ1 - 2, lngAuswNummer + 1).Value = strMonat
End With
With objWksData
'X-Spalte des Monats bestimmen, dazu müssen Monatsnamen als Langname (z.B. März) _
eingegeben sein, sonst Festlegung der Variablen intMonat per Select Case erforderlich.
intMonat = Month(CDate("1." & strMonat & " " & Year(Date)))
lngSpalteX = lngSpJanuar + (intMonat - 1) * lngSpMonat
'Prüfen der Zeilen für den Monat auf Eintrag "x"
For lngZeile = lngDataZ1 To .Cells(.Rows.Count, 1).End(xlUp).Row
'4 Spalten des Monats abarbeiten
For intI = 0 To 3
If LCase(.Cells(lngZeile, lngSpalteX + intI).Value) = "x" Then
lngZeileAusw = lngZeileAusw + 1
objWksAuswahl.Cells(lngZeileAusw, lngAuswNummer) = _
.Cells(lngZeile, 1).Value 'Nummer
objWksAuswahl.Cells(lngZeileAusw, lngAuswNummer + 1) = _
.Cells(lngZeile, 2).Value 'Bezeichnung
Exit For
End If
Next
Next
End With
'Bereich für Name "Auswahl.Bezeichnung" neu setzen
With objWksAuswahl
Application.Names("Auswahl.Bezeichnung").RefersTo = "='" & .Name & "'!" _
& .Range(.Cells(lngAuswZ1, lngAuswNummer), .Cells(lngZeileAusw, lngAuswNummer + 1)). _
Address
End With
End Sub

Beliebteste Forumthreads (12 Monate)

ComboBoxDaten in Abhängigkeit filtern o. Userform

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread