Private Sub Worksheet_Change(ByVal Target As Range
12.04.2004 17:42:37
Winfried
Aufgabe (vereinfacht):
ganze Zahl gleich/größer 0 in Spalte "D" löst das Makro aus (Blatt Plan)
Bei Zahl = "0" oder Target (0,2)= "System" End Sub
Bei Zahl gleich/größer 1 : Die Zellen 1 bis 9 rechts des Targets kopieren
wenn die Zahl = 1, dann in letzte Zeile Spalte 1:9 des Blatts "Maßnahmen" einfügen
wenn die Zahl = 2, dann 2 mal untereinander einfügen,
wenn die Zahl = 3, dann 3 mal usw. bis etwa max. 20 mal untereinander.
Mit meinem Gurken VBA und etlichen "wenn" Formeln schaffe ich es fast, wenn auch nicht gerade elegant.
Zwei Dinge klappen nicht:
1) Die Zahl resultiert aus einer Formel, das erkennt mein VBA nicht, es startet nur bei manuellem Eintrag. Habe dann zusätzlich Spalte "D" ohne Formel eingefügt, nur = "B" (B beinhaltet die Formel) hat auch nicht geholfen.
2) Ich kriege nicht raus wie ich die 9 Zellen rechts des Targets zum kopieren aktiviere
Im Voraus vielen Dank
Winfried
Anzeige