kleines Makro für Copy/Paste

Hallo,
ich möchte gerne ein Makro erstellen. Bis jetzt habe ich meistens nur mit dem Makrorekorder gearbeitet und die Makros durch Copy/Paste erstellt. In diesem Fall reicht das leider nicht aus und ich muss um Hilfe bitten:
Für den Bereich einer Zeile, der in Tabelle1 markiert ist, sollen aus Tabelle2 automatisch die Formeln aus der gleichen Spalte eingefügt werden, wie die markierten in Tabelle1.
Die Formeln in Tabelle2 liegen nur auf Zeile 2. Wenn z.B. Die Zellen C5:F5 in Tabelle1 markiert sind, sollen die Formeln aus Tabelle2 C2:F2 eingefügt werden.
Das aufgezeichnete Makro hilft wahrscheinlich nicht weiter, außerdem sind da wahrscheinlich wieder viel zu viele "Selects" ....
Range("C5:F5").Select
Sheets("Tabelle2").Select
Range("C2:F2").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("C5").Select
ActiveSheet.Paste
Kann mir da bitte jemand helfen? Vielen Dank.
Lieben Gruß, Larissa

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CopyFormulas() 'Formeln per VBA kopieren 'Die Formeln in Tabelle2 liegen nur auf Zeile 2. Wenn z.B. Die Zellen C5:F5 in Tabelle1 _ markiert sind, 'sollen die Formeln aus Tabelle2 C2:F2 eingefügt werden. Dim lngZeile As Long, intSpalte As Integer, intSpalten As Integer Sheets("Tabelle1").Activate lngZeile = Selection.Row intSpalte = Selection.Column intSpalten = Selection.Columns.Count Sheets("Tabelle2").Cells(2, intSpalte).Resize(, intSpalten).Copy Cells(lngZeile, intSpalte) End Sub

Hallo nochmal,
zu diesem Makro habe ich noch eine Ergänzung gemacht. Leider bleibe ich an einer Stelle stecken.
Die Ergänzung ist, dass wenn die komplette Zeile markiert ist, dann soll auch die komplette Zeile mit den Formeln aus Tabelle2 eingefügt werden. So weit bin ich gekommen:


Function ZeileMarkiert() As Boolean
With Selection
ZeileMarkiert = (.Row & ":" & .Row) = .Address(RowAbsolute:=False)
End With
End Function


Sub formeln_einfuegen()
blattname = ActiveSheet.Name
Dim lngZeile As Long, intSpalte As Integer, intSpalten As Integer
lngZeile = Selection.Row
intSpalte = Selection.Column
intSpalten = Selection.Columns.Count
intRow = Sheets("Tabelle2").Range("A:A").Find(blattname).Offset(1, 0).Row
If ZeileMarkiert Then
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Else
Sheets("Tabelle2").Cells(intRow, intSpalte).Resize(, intSpalten).Copy Cells(lngZeile,  _
intSpalte)
End If
End Sub

Mir fehlt eigentlich nur die 'xxxxx Zeile. Das kriege ich einfach nicht hin.
Vielen Dank nochmal für Eure Hilfe.
Larissa

If ZeileMarkiert Then Sheets("Tabelle2").Rows(intRow).EntireRow.Copy Cells(lngZeile, 1) Else Sheets("Tabelle2").Cells(intRow, intSpalte).Resize(, intSpalten).Copy Cells(lngZeile, _ intSpalte) End If

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread