VBA: Zeile anhand der Zeilennummer selektieren und kopieren

Stephan Höber

unread,

Jul 17, 2002, 5:05:55 AM7/17/02

to

Hallo Newsgroup,

ich ´möchte eine ganze Zeile mit Hilfe der Zeilennummer selektieren und in
ein anderes Tabellenblatt kopieren.

Wer kann mir dabei bitte helfen?

MfG
Stephan

Daniel Schmitz

unread,

Jul 17, 2002, 5:21:21 AM7/17/02

to

Hi Stephan,

meinst Du sowas?

Range("5:5").Copy
Worksheets("Tabelle2").Range("5:5").PasteSpecial xlPasteAll
Application.CutCopyMode = False

HTH
Daniel

"Stephan Höber" <1037...@online.de> schrieb im Newsbeitrag
news:ah3bom$plp$1...@news.sns-felb.debis.de...

Urs Angst

unread,

Jul 17, 2002, 5:16:53 AM7/17/02

to

Hallo Stephan

Hier eine Möglichkeit für Dein Problem:

Rows(5).EntireRow.Copy
Sheets("Tabellenblatt").Select
Range("a3").Select
ActiveSheet.Paste

Gruss Urs

"Stephan Höber" <1037...@online.de> schrieb im Newsbeitrag
news:ah3bom$plp$1...@news.sns-felb.debis.de...

Stephan Höber

unread,

Jul 17, 2002, 5:54:33 AM7/17/02

to

Hallo Urs,

danke erstmal für Deine Hilfe,
Es funktioniert fast ... ich hab noch 2 Fragen.

> Hier eine Möglichkeit für Dein Problem:
>
> Rows(5).EntireRow.Copy

die 5 hab ich durch meine Variable in welcher ich die Zeilennummer speichere
ersetzt:

Rows(rw).EntireRow.Copy
Sheets("Tabelle1").Select
Range("a3").Select
Sheets("Tabelle3").Paste

1. wofür steht das "a3" ?
und
2. Beim einfügen in Tabellenblatt 3 erhalte ich den Fehler dass der Bereich
nicht übereinstimmt.

Ich hoffe Du kannst mir helfen

MfG
Stephan

Frank Arendt-Theilen

unread,

Jul 17, 2002, 6:10:38 AM7/17/02

to

Hallo Stepahn,
angenommen die Zeile in der sich der Zellzeiger befindet soll kopiert
werden, dann folgende Beispielanweisung:

Activecell.EntireRow.Copy _
Destination:=Worksheets("Tabelle2").Range("A1")

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

Daniel Schmitz

unread,

Jul 17, 2002, 6:20:19 AM7/17/02

to

Hi Stephan,

>
> Rows(rw).EntireRow.Copy
> Sheets("Tabelle1").Select
> Range("a3").Select
> Sheets("Tabelle3").Paste
>
> 1. wofür steht das "a3" ?

Das bestimmt den Bereich in auf dem Blatt wo es eingefügt werden soll.
Daher hatte Urs den Code auch ein wenig anders geschrieben.
Bei Deinem Code "wechselst" Du nachdem Du die Zeile markiert hast auf
das gleiche Tabellenblatt und markierst Zelle "A3".
Ersetze mal "Tabelle1" durch "Tabelle3" und dann kannst Du auch "Tabelle3"
durch "ActiveSheet" ersetzen und schon hast Du den Code von Urs wieder
und alles funktioniert.
Allerdings würde ich Dir raten daraus eine Zeile zu machen und die Selects
wegzulassen. Dadurch läuft es etwas schneller:

Daher nochmal mein Vorschlag (etwas abgeändert in Anlehnung an Urs)

Rows(rw).EntireRow.Copy
Worksheets("Tabelle3").Range(rw & ":" & rw).PasteSpecial xlPasteAll
Application.CutCopyMode = False

und damit ist auch schon Deine 2te Frege beantwortet.

HTH
Daniel

Martin Worm

unread,

Jul 17, 2002, 6:26:41 AM7/17/02

to

On Wed, 17 Jul 2002 11:05:55 +0200, Stephan Höber wrote:

>Hallo Newsgroup,
>
>ich ´möchte eine ganze Zeile mit Hilfe der Zeilennummer selektieren und in
>ein anderes Tabellenblatt kopieren.
>

hallo Stephan,

versuchs damit

Worksheets("QuelleBlatt").Cells(Zeile, 1).EntireRow.Copy _
Worksheets("Zielblatt").cells(AndereZeile,1)

Application.CutCopyMode = False

hth
--
E-Mail von Martin Worm, Karlsruhe, Deutschland
die From-Adresse wird selten abgefragt
benutze Excel2000(9.0.2812) Win ME
Antworten bitte nur in die Newsgroup

Stephan Höber

unread,

Jul 17, 2002, 7:05:41 AM7/17/02

to

> HTH
> Daniel
>
Vielen Dank für Deine Hilfe,
es funktioniert jetzt.

MfG
Stephan