Einfügen von Musterzeilen in Tabelle
16.08.2006 21:50:31
Musterzeilen
habe ein Problem, kaum VBA-Kenntnisse und hoffe auf eure Hilfe. Ich möchte in einer Tabelle in beliebiger Zeile drei Leerzeilen einfügen und in diese drei leeren Zeilen drei Musterzeilen (mit Formaten und Formeln) reinkopieren. Die Musterzeilen befinden sich in einer extra Tabelle derselben Datei z.B. im Bereich A1:Z3 (könnten aber auch unter der Tabelle nach einer Leerzeile positioniert werden. Einen Anfang hab ich schon hier bei "Sam" (vielen Dank) im Forum gefunden:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zeilenanzahl As Integer
zeilenanzahl = 3
Range(ActiveCell, ActiveCell.Offset((zeilenanzahl - 1), 0)).EntireRow.Insert
Cancel = True
End Sub
Dieser Code wurde im VBA-Modus unter Worksheet, Tabelle1 abgelegt. Wenn möglich, wie könnte man den Code fortsetzen, um Teil 2 das Kopieren/Einfügen der Musterzeilen zu realisieren? Ein extra Modul/Makro wäre ebenfalls denkbar.
Die Krönung des Ganzen wäre, wenn man diesen Prozeß gleichzeitig in zwei markierten Tabellen der Datei ausführen könnte.
Vielen Dank im voraus
Jürgen