Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wie geht das? Zeilen mit rel. Formeln einfügen

Wie geht das? Zeilen mit rel. Formeln einfügen
10.11.2004 16:29:49
Chris
Hallo,
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?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie geht das? Zeilen mit rel. Formeln einfügen
10.11.2004 18:26:32
Josef
Hallo Chris!
Das sollte es tun!

Sub Makro1()
Dim Zeilen As Variant
Zeilen = InputBox("Anzahl der Zeilen:")
If Zeilen = "" Then Exit Sub
Rows("1:1").Copy
Rows(ActiveCell.Row & ":" & ActiveCell.Row + Zeilen - 1).Insert
Range(Cells(ActiveCell.Row, ActiveCell.Column), _
Cells(ActiveCell.Row + Zeilen - 1, ActiveCell.Column)) _
.PasteSpecial (xlPasteFormulas)
Application.CutCopyMode = False
End Sub

Gruß Sepp
Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige