Kreuztabelle
06.11.2013 22:07:11
Albert
ich versuche mit nachfolgendem Code eine Kreuztabelle auszulesen. Aber...
Zu den Suchbegriffen ist zu sagen... Aus Textbox1, Textbox2 und Textbox3 kommen Tag, Monat und Jahr. Das Datum ist in der Kreuztabelle in der Zeile 3 angesiedelt.
Aus Combobox2 kommt entweder F, S oder N. Und diese stehen eben unregelmäßig in der Kreuztabelle verteilt.
Das Ergebnis aus der Suche steht in Spalte A und gibt dann A, B, C, D oder E wieder.
Mein Gedankengang ist folgendermaßen... Ich suche ein Datum in Zeile 3 => Gefunden
Dann gehe ich die Spalte nach unten, bis ich F, S oder N (je nach Auswahl in Combobox2) finde. Anschließend gehe ich nach links in die Spalte A und erfahre mein Ergebnis.
Das Ergebnis wird in die Textbox5 der Userform1 geschrieben.
Sub test()
Dim datDatum As Date: datDatum = CDate(Schichtwunscheingabe.TextBox1.Text & "." & _
Schichtwunscheingabe.TextBox2.Text & "." & Schichtwunscheingabe.TextBox3.Text)
Schichtwunscheingabe.TextBox5.Value = Application.VLookup(datDatum & Left(Schichtwunscheingabe. _
ComboBox2.Value, 1), Sheets("Hilfe").Range("A3:GNT8"), 5115, False)
End Sub
Ich hoff, ich habs einigermaßen verständlich beschrieben. Leider klappt mein Code nicht. Globaler Fehler wird angezeigt... :(
Wär euch um Hilfe echt dankbar.
Gruß
A.