Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Per Makro Zeilen in die nächste freie Zeile kopier

Per Makro Zeilen in die nächste freie Zeile kopier
28.02.2006 19:02:07
Andreas
Hallo,
ich würde gerne aus einem Arbeitsblatt per Schaltfläche Zeilen in ein anderes Arbeitsblatt in die nächste freie Zeile kopieren. Geht das und wenn ja wie?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro Zeilen in die nächste freie Zeile kopier
28.02.2006 20:00:24
chris
Hallo Andreas.Das könntest du so machen.
Kopiert 1 zeile aus aktivem Blatt in Tabelle 2 letzte zeile die benutzt ist.

Sub neu()
Rows(1).Copy
lz = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Tabelle2").Paste Destination:=Worksheets("Tabelle2").Rows(lz)
End Sub

Anzeige
AW: Per Makro Zeilen in die nächste freie Zeile ko
28.02.2006 20:04:53
Franz
Hallo Andreas,

Private Sub CommandButton1_Click()
Dim wks As Worksheet
Set wks = ThisWorkbook.Sheets("Tab2") ' Tabelle in der Zeile eingefügt werden sollen
Selection.EntireRow.Copy
wks.Cells(wks.UsedRange.Rows.Count + 1, 1).Insert
Application.CutCopyMode = False
End Sub

Kopiert werden die selektierten Zeilen. Dabei müssen nicht die ganzen Zeilen markiert werden, es reicht aus eine Zelle je Reihe zu markieren.
Gruß
Franz
Anzeige
AW: Per Makro Zeilen in die nächste freie Zeile ko
01.03.2006 14:59:02
Andreas
Danke, so klappt es. Super!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige