Zeilen einfügen und def. Zeile relativ kopieren
10.11.2004 09:47:32
ChriZ
Ich habe folgendes Problem. Ich will mit einem Makro eine abzufragende Anzahl an Zeilen an einer beliebigen Zeile einfügen. Weiter soll durch das Makro eine ausgewählte komplette Zeile( z.B. Zeile 1) incl. Ihrer Formeln RELATIV in diese neuen Zeilen kopiert werden.
Das bisherige Makro lautet:
Sub Makro1()
Dim Zeilen As Variant
Zeilen = InputBox("Anzahl der Zeilen:")
If Zeilen = "" Then Exit Sub
Rows(ActiveCell.Row & ":" & ActiveCell.Row + Zeilen - 1).Insert
Range(Cells(ActiveCell.Row, ActiveCell.Column), _
Cells(ActiveCell.Row + Zeilen - 1, ActiveCell.Column)) _
.FormulaR1C1 = Cells(1, ActiveCell.Column).FormulaR1C1
End Sub
Es wird aber nur Zelle A1 kopiert, nicht die ganze Zeile 1 (relativ?)
Kann mir jemand helfen die Kopierfunktion entsprechend anzupassen und mir als Neuling erklären wie der Kopierbefehl aufgebaut ist? Man will ja lernen und nicht noch mal fragen.
Weiter suche ich einen VBA Excell Online Kurs zum Einstieg und vertiefen. Irgendwelche Links?
Anzeige