Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Markierte Excel Zeilen in ein neues Sheet kopieren

Markierte Excel Zeilen in ein neues Sheet kopieren
Christoph
Hallo,
möchte von einem Excel Sheet jede fünfte markierte Zeile in ein anderes / neues Excel Sheet kopieren, jedoch habe ich bisher keine Lösung gefunden die funktioniert, kann mir hier jemand weiterhelfen? Unten habe ich ein mein Makro angehängt, mit dem die Zeilen markiert werden.
Thx. Timo
-------- Excel Makro ------
Code:

Public Sub test()
Dim start As Long
Dim ende As Long
Dim zeile As Long
Dim bereich As Range
start = Application.InputBox(prompt:="Erste Zeile", Type:=1)
ende = Application.InputBox(prompt:="Letzte Zeile", Type:=1)
Set bereich = Rows(start)
For zeile = start To ende Step 5 'jede 5te
Set bereich = Union(bereich, Rows(zeile))
Next
bereich.Select
End Sub

Anzeige
AW: Markierte Excel Zeilen in ein neues Sheet kopieren
22.06.2010 21:24:17
Tino
Hallo,
versuche es mal so.
anstatt bereich.select
bereich.Copy Sheets.Add(After:=Sheets(Sheets.Count)).Range("A1")
Gruß Tino
AW: Markierte Excel Zeilen in ein neues Sheet kopieren
22.06.2010 21:43:09
Christoph
Hallo Tino,
vielen Dank für die schnelle Antwort.
Hab es gleich ausprobiert, nun habe ich noch eine Frage, ist es möglich dass das neue Sheet direkt hinter dem ersten Sheet kopiert wird? Und kann ich auch eine Infoboxabfrage für erstellen, in der ich eingebe, das ich nicht nur die 5 sondern auch nur die 1 oder 3 Zeile kopieren möchte?
Gruß Christoph
Anzeige
AW: Markierte Excel Zeilen in ein neues Sheet kopieren
22.06.2010 22:49:51
Tino
Hallo,
zu erstens, so kommt die Tabelle an die 2. Stelle.
bereich.Copy Sheets.Add(After:=Sheets(1)).Range("A1")
und so an die erste
bereich.Copy Sheets.Add(Before:=Sheets(1)).Range("A1")
zu Deiner zweiten Frage, noch eine Inputbox
Dim start As Long, ende As Long, zeile As Long, lngStep As Long
Dim bereich As Range
start = Application.InputBox(prompt:="Erste Zeile", Type:=1)
ende = Application.InputBox(prompt:="Letzte Zeile", Type:=1)
lngStep = Application.InputBox(prompt:="Abstand zwischen Zeilen", Type:=1)
Set bereich = Rows(start)
For zeile = start To ende Step lngStep 'jede 5te
Set bereich = Union(bereich, Rows(zeile))
Next
bereich.Copy Sheets.Add(Before:=Sheets(1)).Range("A1")
Gruß Tino
Anzeige
AW: Markierte Excel Zeilen in ein neues Sheet kopieren
23.06.2010 18:10:55
Christoph
Halo Tino,
vielen Dank für die super Hilfe!!
Kann man dem neu eingefügtem Sheet auch direkt einen Namen geben, in den die markierten Zeilen kopiert werden?
Gruß Christoph
AW: Markierte Excel Zeilen in ein neues Sheet kopieren
23.06.2010 18:41:09
Tino
Hallo,
schreibe nach bereich.copy ... einfach ActiveSheet.Name = "Mein Name1"
Gruß Tino
Anzeige
AW: Markierte Excel Zeilen in ein neues Sheet kopieren
23.06.2010 18:53:03
Christoph
Hi,
so ganz weiß ich nicht wie du das meinst , soll die Zeile dann so aussehen?
bereich.Copy ActiveSheet.Name = "MeinName1"
Nur da passiert nichts. :-(
Vielleicht kannst du mir die Zeile einmal komplett einfügen wie du es meinst. Sorry!
Christoph
AW: Markierte Excel Zeilen in ein neues Sheet kopieren
23.06.2010 19:11:34
Tino
Hallo,
ich meinte es so.
bereich.Copy Sheets.Add(After:=Sheets(Sheets.Count)).Range("A1")
ActiveSheet.Name = "MeinName" 
Gruß Tino
Anzeige
AW: Markierte Excel Zeilen in ein neues Sheet kopieren
23.06.2010 19:50:07
Christoph
Hi,
sorry, wenn ich dich jetzt verwirre. Nun habe ich noch eine andere Frage, wenn ich die Daten in ein bestehendes Sheet kopieren möchte, was muss ich da eintragen? D
Das bestehende Sheet heißt "MeinName1" die Daten werden aus "TXT_Daten" herauskopiert?
Thx. Christoph
versuch mal so
23.06.2010 20:25:22
Tino
Hallo,
versuch mal und ersetze die Zeile
bereich.Copy Sheets.Add(After:=Sheets(Sheets.Count)).Range("A1")
durch diese
bereich.Copy Sheets("MeinName1").Range("A1")
Bin jetzt offline
Gruß Tino
Anzeige
;

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