01.12.2014, 23:43
Hallo zusammen,
nun brauche ich Hilfe.
Ich bin dabei, in diesem Thread eine UF zu entwerfen. Nachdem einige Änderungen erforderlich waren/sind, wollte ich diese nun umsetzen.
Die alten Codeschnipsel, welche "nicht mehr" benötigt werden, habe ich zunächst nur kommentiert.
Ich habe folgenden Codeschnipsel im Modul "Userform_Initialize" angepasst:
Die Reduzierung auf die jeweiligen Monate des aktuellen Jahres nur deshalb, um die Anzahl der Einträge ein wenig zu reduzieren. Ob das so auch in der Praxis realisierbar ist, wird sich zeigen.
Mein erster Gedanke war, ich formatiere die Einträge im Format "MMM YY" der ComboBox mit folgendem Schnipsel (wegen der Übersichtlichkeit):
Das führte im weiteren Verlauf der Prozeduren natürlich dazu, dass der Filter ohnehin nicht arbeitete.
Also entschloss ich mich, die Aufgabe subtiler anzugehen.
Mein Problem ist nun, dass egal wie ich die Einträge formatiere (ich habe folgende Varianten getestet)
wie oben
oder
und
der Filter, den ich in einer anderen Prozedur aufrufe, nicht mehr greift.
Die Filterprozedur entsprechend anzupassen, hat auch nicht zum Erfolg geführt.
Zu besseren Veranschaulichung, die Datei anbei.
[attachment=923]
Wo ist mein Hänger?
Gruß
Max
nun brauche ich Hilfe.
Ich bin dabei, in diesem Thread eine UF zu entwerfen. Nachdem einige Änderungen erforderlich waren/sind, wollte ich diese nun umsetzen.
Die alten Codeschnipsel, welche "nicht mehr" benötigt werden, habe ich zunächst nur kommentiert.
Ich habe folgenden Codeschnipsel im Modul "Userform_Initialize" angepasst:
Code:
With .cboMonJahr
Set objDic = CreateObject("Scripting.Dictionary")
For Zelle = 2 To tblParameter.Cells(Rows.Count, 3).End(xlUp).Row
If Year(tblParameter.Cells(Zelle, 3).Value) = Year(Date) Then
objDic(tblParameter.Cells(Zelle, 3).Value) = 0
End If
Next Zelle
Anzahl = objDic.Count
If Anzahl > 0 Then
.List = WorksheetFunction.Transpose(objDic.Keys)
End If
Set objDic = Nothing
End With
Die Reduzierung auf die jeweiligen Monate des aktuellen Jahres nur deshalb, um die Anzahl der Einträge ein wenig zu reduzieren. Ob das so auch in der Praxis realisierbar ist, wird sich zeigen.
Mein erster Gedanke war, ich formatiere die Einträge im Format "MMM YY" der ComboBox mit folgendem Schnipsel (wegen der Übersichtlichkeit):
Code:
For i = 0 To .cboMonJahr.ListCount - 1
cboMonJahr.List(i) = Format(DateValue(cboMonJahr.List(i)), "MMM YY")
Next i
Das führte im weiteren Verlauf der Prozeduren natürlich dazu, dass der Filter ohnehin nicht arbeitete.
Also entschloss ich mich, die Aufgabe subtiler anzugehen.
Mein Problem ist nun, dass egal wie ich die Einträge formatiere (ich habe folgende Varianten getestet)
Code:
objDic(tblParameter.Cells(Zelle, 3).Value) = 0
Code:
objDic(CDbl(tblParameter.Cells(Zelle, 3).Value)) = 0
Code:
objDic(CDate(tblParameter.Cells(Zelle, 3).Value)) = 0
Code:
objDic(CDbl(CDate(tblParameter.Cells(Zelle, 3).Value))) = 0
Die Filterprozedur entsprechend anzupassen, hat auch nicht zum Erfolg geführt.
Zu besseren Veranschaulichung, die Datei anbei.
[attachment=923]
Wo ist mein Hänger?
Gruß
Max