Microsoft Excel

Herbers Excel/VBA-Archiv

Tabelleninhalt kopieren und einfügen

Betrifft: Tabelleninhalt kopieren und einfügen von: Ryu_Hoshi
Geschrieben am: 25.08.2004 09:55:24

Hallo ich möchte den Inhalt von Tabelle 3 in Tabelle2 einfügen.
Ich habe folgendes geschrieben, aber es wird immer nur eine Zelle kopiert.
Was ist falsch? Kann es jemand bitte korrigieren?

[code]

Private Sub But_Zurueck_Click()
 Sheets(3).Select
 Selection.Copy
 Sheets(2).Select
 ActiveSheet.Paste
   
End Sub


[/code]
  


Betrifft: AW: Tabelleninhalt kopieren und einfügen von: Andi
Geschrieben am: 25.08.2004 10:02:59

Hi,

Private Sub But_Zurueck_Click()
 Sheets(3).Cells.Select
 Selection.Copy
 Sheets(2).Select
 Cells.Select
 ActiveSheet.Paste
End Sub


Gruß Andi


  


Betrifft: AW: Tabelleninhalt kopieren und einfügen von: Ryu_Hoshi
Geschrieben am: 25.08.2004 10:11:10

Hallo Andi ich bekomme den RunTime Error 1004
"Select Method or Range Class Failed"

Und er kommt dann bei debug in diese Zeile
"Sheets(3).Cells.Select"

Hast du eine Idee woran es liegt?


  


Betrifft: AW: Tabelleninhalt kopieren und einfügen von: Dr.
Geschrieben am: 25.08.2004 10:08:00

So gehts auch:

Sub test()
Sheets(1).UsedRange.Copy Destination:=Sheets(2).[a1]
End Sub



  


Betrifft: AW: Tabelleninhalt kopieren und einfügen von: Ryu_Hoshi
Geschrieben am: 25.08.2004 10:16:44

Hallo Dr.

Mit déinem Code passiert irgendwarum nichts... :(


  


Betrifft: AW: Tabelleninhalt kopieren und einfügen von: Dr.
Geschrieben am: 25.08.2004 10:20:46

Klar tut´s der. Hast Du auch die Sheetnummern auf Deine Tabellen angepasst?


  


Betrifft: AW: Tabelleninhalt kopieren und einfügen von: Reinhard
Geschrieben am: 25.08.2004 10:51:55

Hi Dr,
der Code fiel mir auch ein, aber er hat eine Unsicherheit, wenn in der Quelle (sheet3) die ersten Zeilen leer sind, ergibt das eine Zeilenvershiebung beim Kopieren.
Und ich habe öfters, grad beim Aufbau einer Tabelle, die ersten Zeilen frei, um nachträglich noch problemlos Überschriften etc. einfügen zu können.
Deshalb kam ich auf das da:
Sub tt()
r = Worksheets(3).UsedRange.Row
c = Worksheets(3).UsedRange.Column
Worksheets(3).UsedRange.Copy Destination:=Worksheets(2).Cells(r, c)
End Sub

Gruß
Reinhard


  


Betrifft: AW: Tabelleninhalt kopieren und einfügen von: Ryu_Hoshi
Geschrieben am: 25.08.2004 11:29:57

Hallo Reinhard es klappt mit deinem code. Danke an alle für ihr Bemühen


 

Beiträge aus den Excel-Beispielen zum Thema "Tabelleninhalt kopieren und einfügen"