Automatisierung der Änderungen von "Range-Angaben"
05.07.2006 15:20:48
"Range-Angaben"
Ich bin gerade dabei ein Buchführungsprogramm für meine Vereins-Kassenführung zu schreiben.
Ich habe eine Eingabemaske bzw. ein Eingabetabellenblatt, in dem u.a. Datum und Betrag eingetragen werden. Dann kann per Dropdownmenü die Kosten- bzw. Erlösart gewählt werden. Je nach gewählter Kosten- bzw. Erlösart, soll dann der Betrag im "Journal" unterschiedlich verbucht werden. Ich habe das per Fallauswahl (Case) gemacht (siehe Auszug vom Programmcode unten).
Es funktioniert soweit auch alles, das Problem ist nur, dass ich diesen Makro bzw. das Dropdownmenü in ca. 250 Zeilen brauche und ich mit der manuellen Änderungen der ganzen "Range-Angaben" (z.B. Range("Journal!D7") in Range("Journal!D8")) wohl sehr lange beschäftigt sein werde (Es sind insgesamt 25 Cases pro Dropdownmenü bzw. Makro).
Gibt es eine Möglichkeit, diesen Vorgang zu automatisieren? Also z.B. eine Anweisung, bei der ich sagen kann: "Ändere überall in diesem Makro bzw. Programmcode die Zahl "7" in die Zahl "8" bzw. "9" usw.?
Sub Dropdown1()
Dim Zahl As Integer
Zahl = Range("G7")
Select Case Zahl
Case 1
Range("Journal!D7") = "Beitrag"
Range("Journal!I7,Journal!W7") = Range("Journal!G7")
Range("Journal!L7:Journal!V7") = ""
Range("Journal!X7:Journal!BQ7") = ""
Case 2
Range("Journal!D7") = "Beitrag Retour"
Range("Journal!L7") = Range("Journal!F7")
Range("Journal!AV7") = Range("Journal!F7") - 3
Range("Journal!BC7") = 3
Range("Journal!I7") = ""
Range("Journal!M7:Journal!AT7") = ""
Range("Journal!AW7:Journal!BB7") = ""
Range("Journal!BD7:Journal!BQ7") = ""
Case 3
Range("Journal!D7") = "Rücküberweisung Beitrag"
Range("Journal!L7,Journal!AV7") = Range("Journal!F7")
Range("Journal!I7") = ""
Range("Journal!M7:Journal!AT7") = ""
Range("Journal!AW7:Journal!BQ7") = ""
Case 4
Case 5
...
Schon mal vielen Dank für Eure Hilfe und schöne Grüße,
stefanseevetal