Guten Tag,
ich bin gerade dabei mich in VBA einzuarbeiten und stehe leider noch sehr weit am Anfang.
Ich versuche momentan ein Makro zu erstellen, dass mit zwei Arbeitsblättern in einer Excel Datei arbeitet und die folgende Funktionen erfüllt:
(x steht dafür wie oft der Wert in der anderen Tabelle vorhanden ist)
1. Schaue ob das Feld X leer ist, dann soll das Feld Y auch leer bleben. => funktioniert soweit
2. Falls der Wert im Feld X = 1, dann führe eine Rechnung durch. => funktioniert auch
3. Falls der Wert im Feld X >1, dann muss es in dem anderen Arbeitsblatt die Werte filtern und, um dann den passenden Wert über einen Datumsabgleich zu finden. Ohne Filter geht das nicht, weil immer mehrere Eingaben pro Datum vorhanden sind, aber nach dem Filter ist die Zuordnung eindeutig. Manuell funktioniert es auch, nur bei meinem Autofilter kommt immer der Fehlercode 1004 und die Zeile mit dme Autofilter wird gelb markiert.
So sieht dieser Teil des Codes aus
Else
Kriterium = Sheets("Arbeitsblatt1").Cells(8, 3).Value
Worksheets("Arbeitsblatt2").Range("C3:AE1000").AutoFilter Field = 1, criterial = Kriterium
Sheets("Arbeitsblatt1").Select
xxxxxx
End if
Meine zweite Frage wäre noch:
ich habe ja zum Beispiel in der ersten Zeile bei Kriterium den Teil .Cells(8, 3) für Zelle C8. Wie kann ich das so schreiben, dass er danach das gleiche für Zelle C9 macht usw. Momentan funktioniert mein Makro noch nur für eine Zeile und noch nicht so, dass es dann in die nächste Zeile springt.
|