Microsoft Excel

Herbers Excel/VBA-Archiv

Kopieren von Tabellenblatt

Betrifft: Kopieren von Tabellenblatt von: Pia
Geschrieben am: 17.08.2008 21:46:04

Hallochen,

wie kann ich ein Tabellenblatt um weitere 100Seiten kopieren (alle in einer Datei)? Ich kenne nur: rechte mausklick, kopieren, usw. Leider dauert diese Vorgang ewig bis ich 100 Seiten fertig kopieren kann.

Danke für den Tipps im Voraus!!

Gruß,
Pia

  

Betrifft: Einfach so! von: Backowe
Geschrieben am: 17.08.2008 21:53:18

Hallo Pia,

VBA-Code:
Sub TabellenblattKopieren()
Dim i As Integer
For i = 1 To 100
  Sheets("Tabelle1").Copy after:=Sheets(Sheets.Count)
Next
End Sub
Code eingefügt mit Syntaxhighlighter 4.15


Gruß Jürgen


  

Betrifft: AW: Einfach so! von: Pia
Geschrieben am: 17.08.2008 21:56:01

Hi Jürgen,

Danke für die schnelle Antwort,

leider kenne ich mich leider gar nicht mit VBA aus. Wo muss ich das Befehl hineinschreiben? Gibt es andere möglichkeit ohne VBA?

Gruß
Pia


  

Betrifft: Ist auch nicht schwer, ... von: Backowe
Geschrieben am: 17.08.2008 22:03:20

Hallo Pia,

... drücke Alt + F11, es öffnet sich der VBA-Editor, dann füge ein Modul über Einfügen, Modul ein und kopiere den Code in das rechte Fenster, Tabellennamen anpassen und mit F5 oder dem kleinen Dreieck starten.

Gruß Jürgen


  

Betrifft: AW: Ist auch nicht schwer, ... von: Pia
Geschrieben am: 17.08.2008 22:43:03

Hat geklappt! Vielen Dank!!! Und sorry nochmals für die wiederholte Frage zu Drop Down Zelle. Habe nun nicht so verstanden :-)
Werde morgen nochmals versuchen.

Danke!!!


  

Betrifft: AW: Ist auch nicht schwer, ... von: Ramses
Geschrieben am: 17.08.2008 22:51:38

Hallo

Auch wenn du Anfängerin bist,... beantworte ALLE Antworten der Fragen die du gestellt hast.
Ansonsten werden die Antworten schnell weniger

Gruss Rainer


  

Betrifft: AW: Einfach so! von: Ramses
Geschrieben am: 17.08.2008 22:09:15

Hallo

":...Gibt es andere möglichkeit ohne VBA..."

Ja,... wie schon erwähnt händisch kopieren :-)
Aber es dauert keine Ewigkeit

1. Tabelle kopieren
2. 1. Tabelle + "Shift"-Taste bis Tabelle2 Markieren
3. Rechte Maustaste - Kopieren
4. "Ctrl" + "y"
5. "Ctrl" + "y"
6. 1. Tabelle + "Shift"-Taste bis Tabelle4 Markieren
7. Rechte Maustaste - Kopieren
8. 1. Tabelle + "Shift"-Taste bis Tabelle8 Markieren
9. Rechte Maustaste - Kopieren
10. 1. Tabelle + "Shift"-Taste bis Tabelle16 Markieren
11. Rechte Maustaste - Kopieren
12. 1. Tabelle + "Shift"-Taste bis Tabelle32 Markieren
13. Rechte Maustaste - Kopieren
14. "Ctrl" + "y"
15. "Ctrl" + "y"

Sind total 8 eigentliche Kopieraktionen und du hast 100 neue Tabellen :-)
... aber per VBA geht es natürlich eleganter

Gruss Rainer



 

Beiträge aus den Excel-Beispielen zum Thema "Kopieren von Tabellenblatt"