AW: zwei neue Versionen
11.03.2011 09:07:31
Martin
Moin Erich
Jo durch die beiden datein ist mir das eine oder andere noch klar geworden.
Nachdem ich ein bisschen getrickst und gefuscht habe, habe ich nun auch den fehler Lokalisiert.
Der Fehler wird durch das erste Suchkriterium verursacht das ein Datum ist.
Bevor dieses Satum als Suchkriterium verwendet wird hat es schon ein bisschen was hinter sich.
Erstmal steht es in der Liste ganz Normal als DD,MM,YY Formatiert.
Dann wird es von einer VBA "Case" Funktion in die Listfillrange einer Combobox geladen.
Die Combobox habe ich hiermit im Vorfeld Formatiert.
Private Sub ComboBox2_Change()
Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "DD.MM.YY")
End Sub
Von da aus wird das Datum in die Linkedcell verfrachtet und erst von dort in die Verweis Formel.
Wenn ich die Formatierungen aufhebe und Excel die ganze Prozedur mit der Excelinternen Datumzahl durchlaufen lassen Funktioniert das, aber damit kann dann kein Normalsterblicher etwas anfangen.
Wenn das Datum in der Messwerte Liste als Datumzahl steht ist mir das egal.
Ich habe die VBA Formatierung wider eingefügt und bekomme somit in der Linkedcell ein Datum das wandel ich ein einer anderen Celle mit DATWERT in eine Datumszahl um und benutze es für den VERWEIS.
Das ganze Funktioniert hat aber noch den Hacken das in der Listfillrange der Combobox jetzt nur Datumzahlen zu finden sind die erst nach der Auswahl zu einem Datum werden.
Wenn es dafür noch eine Lösung gibt wie man das in eine "lesbares" Format ändert bin ich Glücklich.
Gruß
Martin
PS:
Fals es hilft hier noch der VBA Code zu der betrefenden Combobox:
Private Sub ComboBox2_Change()
Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "DD.MM.YY")
End Sub
Private Sub ComboBox2_GotFocus()
Select Case (ComboBox1.Value)
Case Sheets("Zusammenfassung").Range("A8"): ComboBox2.ListFillRange = "Messwerte!B6:B105"
Case Sheets("Zusammenfassung").Range("A9"): ComboBox2.ListFillRange = "Messwerte!H6:H105"
Case Sheets("Zusammenfassung").Range("A10"): ComboBox2.ListFillRange = "Messwerte!N6:N105"
Case Sheets("Zusammenfassung").Range("A11"): ComboBox2.ListFillRange = "Messwerte!T6:T105"
Case Sheets("Zusammenfassung").Range("A12"): ComboBox2.ListFillRange = "Messwerte!Z6:Z105"
Case Sheets("Zusammenfassung").Range("A13"): ComboBox2.ListFillRange = "Messwerte!AF6:AF105" _
Case Sheets("Zusammenfassung").Range("A14"): ComboBox2.ListFillRange = "Messwerte!AL6:AL105" _
Case Sheets("Zusammenfassung").Range("A15"): ComboBox2.ListFillRange = "Messwerte!AR6:AR105" _
Case Sheets("Zusammenfassung").Range("A16"): ComboBox2.ListFillRange = "Messwerte!AX6:AX105" _
Case Sheets("Zusammenfassung").Range("A17"): ComboBox2.ListFillRange = "Messwerte!BD6:BD105" _
Case Sheets("Zusammenfassung").Range("A18"): ComboBox2.ListFillRange = "Messwerte!BJ6:BJ105" _
Case Sheets("Zusammenfassung").Range("A19"): ComboBox2.ListFillRange = "Messwerte!BP6:BP105" _
Case Sheets("Zusammenfassung").Range("A20"): ComboBox2.ListFillRange = "Messwerte!BV6:BV105" _
Case Sheets("Zusammenfassung").Range("A21"): ComboBox2.ListFillRange = "Messwerte!CB6:CB105" _
Case Sheets("Zusammenfassung").Range("A22"): ComboBox2.ListFillRange = "Messwerte!CH6:CH105" _
Case Sheets("Zusammenfassung").Range("A23"): ComboBox2.ListFillRange = "Messwerte!CN6:CN105" _
Case Sheets("Zusammenfassung").Range("A24"): ComboBox2.ListFillRange = "Messwerte!CT6:CT105" _
Case Sheets("Zusammenfassung").Range("A25"): ComboBox2.ListFillRange = "Messwerte!CZ6:CZ105" _
Case Else: ComboBox2.ListFillRange = ""
End Select
End Sub