Zeilen mit Makro aus Mustertabelle kopieren

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In meinen Tabellenblatt "xyz" habe ich in den Zeilen 6 bis 15 meine "Vorlage" entwickelt. Diese Zeilen möchte ich mit einem Makro in jedem Tabellenblatt der Arbeitsmappe mit STRG + C einsetzen können. Eine Spaltenbreite ist dabei nicht zu beachten.
So kann ich einen "Stammsatz" in der Tabelle xyz in den Zeilen 6-15 entwickeln und diesen Stammsatz beliebig oft im benötigten Tabellenblatt einfügen.
Über eine weitere Unterstützung eines VBA-Laien würde ich mich freuen.
Recht herzlichen Dank.
Liebe Grüsse
obelix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BereichKopieren() Dim ws As Worksheet, wsZ As Worksheet, efz% Set ws = ThisWorkbook.Worksheets("Vorlage") Set wsZ = Workbooks("Raumkosten.xls").Worksheets("Zieltabelle") efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws.Rows("7:15").Copy wsZ.Cells(efz, 1) End Sub

Sub BereichKopieren() Dim Datei As String Dim Tabelle As String Dim ws As Worksheet, wsZ As Worksheet, efz% Datei = InputBox("Bitte Datei eingeben", , "Raumkosten.xls") Tabelle = InputBox("Bitte Tabellenblatt eingeben", , "Zieltabelle") Set ws = ThisWorkbook.Worksheets("Vorlage") Set wsZ = Workbooks(Datei).Worksheets(Tabelle) efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws.Rows("7:15").Copy wsZ.Cells(efz, 1) End Sub

Sub BereichKopieren() Dim Datei As String Dim Tabelle As String Dim ws As Worksheet, wsZ As Worksheet, efz% Datei = InputBox("Bitte Datei eingeben", , Sheets("Tabelle1").Cells(1,1).value) Sheets("Tabelle1").Cells(1,1).value = Datei Tabelle = InputBox("Bitte Tabellenblatt eingeben", , Sheets("Tabelle1").cells(2,1).value) Sheets("Tabelle1").cells(2,1).value = Tabelle Set ws = ThisWorkbook.Worksheets("Vorlage") Set wsZ = Workbooks(Datei).Worksheets(Tabelle) efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws.Rows("7:15").Copy wsZ.Cells(efz, 1) End Sub

Sub BereichKopieren() Dim Tabelle As String Dim ws As Worksheet, wsZ As Worksheet, efz% Tabelle = InputBox("Bitte Tabellenblatt eingeben", , Sheets("Tabelle1").cells(2,1).value) Sheets("Tabelle1").cells(2,1).value = Tabelle Set ws = ThisWorkbook.Worksheets("Vorlage") Set wsZ = Workbooks(Datei).Worksheets(Tabelle) efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws.Rows("7:15").Copy wsZ.Cells(efz, 1) End Sub

Hallo, ich muss noch noch einmal wegen Unterstützung an das Forum wenden.
Nachfolgendes Makro zum Kopieren eines Zeilenbereiches von einer "Vorlage" in ein anderes Tabellenblatt derselben Arbeitsmappe habe ich eingesetzt.


Sub BereichKopieren()
Dim Datei As String
Dim Tabelle As String
Dim ws As Worksheet, wsZ As Worksheet, efz%
Datei = InputBox("Bitte Datei eingeben", , Sheets("Projektdaten").Cells(1, 1).Value)
Sheets("Projektdaten").Cells(1, 1).Value = Datei
Tabelle = InputBox("Bitte Tabellenblatt eingeben", , Sheets("T").Cells(2, 1).Value)
Sheets("Tabelle1").Cells(2, 1).Value = Tabelle
Set ws = ThisWorkbook.Worksheets("Vorlage")
Set wsZ = Workbooks(Datei).Worksheets(Tabelle)
efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Rows("7:15").Copy wsZ.Cells(efz, 1)
End Sub

Diese Makro läuft aus welchen Grund auch immer, nicht ganz so wie ich es schon einmal hatte.
Die Abfrage nach der aktuellen Datei benötige ich nicht mehr.
Die Abfrage nach dem Tabellenblatt in dem die Zeilen aus der Vorlage eingefügt werden sollen, ist schon richtig. Allerdings möchte ich den zuletzt eingegebenen Tabellenblattnamen erst dann überschreiben , wenn ich ein anderes Tabellblatt angelegt habe. Solange kann der Tabellenblattnamen ohne editieren zu müssen in der Abfrage stehen bleiben.
Ich habe jetzt ohne VBA-Kenntnisse viel ausprobiert, komme aber nicht weiter.
Ich hoffe mir kann in diesem Forum Hilfe geboten werden.
Liebe Grüsse
obelix

Beliebteste Forumthreads (12 Monate)

Zeilen mit Makro aus Mustertabelle kopieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen mit Makro aus Mustertabelle kopieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread