Zeile löschen und formel in die nächste Zeile über
24.12.2004 16:01:31
Yilmaz
habe ein kleines Problem mit VBA.
Ich habe eine Tabelle "Angebot", in der Spalte D13 bis I13 sind die Überschriften: z.B. D13 (Anzahl) E13 (Artikelname) usw.
D14 bis D24 ist ein festes Bereich, d.h. ich kann hier die Artikel Anzahl und Artikelnamen auswählen. Diese Eingabe wird durch ein Userformular realisiert.
Klartext: Ich kann nur 10 Artikel pro Zeile eingeben.
Ziel Nr. 1
Mein Ziel ist wenn ich z.B. 2 Artikel ausgewählt habe sollen die restlichen 8 Zeilen gelöscht werden oder 3 Artikel ausgewählt sollen die restlichen 7 Zeilen gelöscht werden.
Ziel Nr. 2
Bei Eingabe von Artikeln sollen die Formel F14 bis I14 in die nächste Zeile übertragen werden.
Wie kann ich diese o.g. Punkte per VBA realisieren.
Mit diser Code komme ich leider nicht weiter:
With ActiveCell
Rows(.Row + 1).Insert
Range("G" & .Row + 1).FormulaR1C1 = _
Range("G" & .Row).FormulaR1C1
Range("H" & .Row + 1).FormulaR1C1 = _
Range("H" & .Row).FormulaR1C1
Range("I" & .Row + 1).FormulaR1C1 = _
Range("I" & .Row).FormulaR1C1
End With
Danke vorab und Gruß
Yilmaz