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

Forumthread: Tabellenblatt exportieren

Tabellenblatt exportieren
24.01.2005 18:31:37
Andreas
Hallo zusammen,
ich habe schon mal so eine Frage gestellt, aber noch keine so richtige Lösung erhalten.
IST-Situation:
Ich habe eine Arbeitsmappe "MAPPE1.xls" geöffnet. Diese enthält mehrere Tabellenblätter, außerdem das Tabellenblatt "EXPORT".
Ich möchte folgendes machen...
1. eine neue Arbeitsmappe öffnen (z.B. "MAPPE2"), - die nur ein Tabellenblatt hat- und dieses Tabellenblatt "Exportdaten" nennen. (wie lautet der VBA-Code)
2. im Anschluß möchte ich von der "MAPPE1.xls" das Tabellenblatt "EXPORT" in dieses neue Tabellenblatt ("Exportdaten") der Arbeitsmappe ("MAPPE2") kopieren.
Wäre super, wenn mir jemand helfen könnte...
...übrigens, ich bin noch absoluter BEGINNER im Bereich VBA.... also bitte gaaaaaaanz laaaaannnnnggsaaaaaamm (alla Rudolph Scharping ;-))))
Danke im voraus
Grüße
Andreas
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt exportieren
24.01.2005 18:43:23
Josef
Hallo Andreas!
Probier's mal so:

Sub BlattKopieren()
Workbooks("Mappe1.xls").Sheets("EXPORT").Copy
ActiveSheet.Name = "Exportdaten"
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Tabellenblatt exportieren
24.01.2005 18:52:51
Andreas
Hallo Sepp,
erst einmal vielen Dank für Deine Hilfe.
Wo muß ich denn Deinen Vorschlag eintragen?
Ich habe gerade den Befehl einem Button zugeordnet (CommandButtonExport).
Kommt ein Laufzeitfehler....
Danke im voraus für Deine Hilfe...
Danke
Andy
Anzeige
AW: Tabellenblatt exportieren
24.01.2005 19:05:52
Josef
Hallo Andreas!
Der Code gehört in ein allgemeines Modul (Einfügen &gt Modul, im VBE)
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Tabellenblatt exportieren
24.01.2005 19:12:15
Andreas
Sorry Sepp,
wenn ich doof frage.... und jetzt?
Ich Beginner, habe ich doch geschrieben ;-)))
Wie führe ich jetzt die Aktion aus?
Grüße
Andy
Anzeige
AW: Tabellenblatt exportieren
24.01.2005 19:15:36
Josef
Hallo Andreas!
Einfach im Code des CommandButtons!

Private Sub CommandButton1_Click()
BlattKopieren
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Tabellenblatt exportieren
24.01.2005 19:24:20
Andreas
Hallo Sepp,
ich denke, dass ist die Lösung für mein Problem kopieren.
jetzt benötige ich eigentlich nur noch die Lösung für mein erstes Problem.
1.) eine neue Arbeitsmappe öffnen und ein Tabellenblatt "EXPORTDATEN" anlegen..
(... dann funktioniert der Befehl von Dir wahrscheinlich auch, denn jetzt ist momentan eine Fehlermeldung: "Laufzeitfehler 9; Index ausßerhalb des gültigen Bereichs"
Grüße
Andy
Anzeige
AW: Tabellenblatt exportieren
24.01.2005 19:26:24
Josef
Hallo Andreas!
Der Code macht genau das!
Überprüfe mal den Tabellen bzw. Workbooknamen!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Tabellenblatt exportieren
24.01.2005 19:50:21
Andreas
Hallo Sepp,
jetzt funktioniert das ganze.. :-))))) (superfreu)
...eine Frage noch, kann ich in das Modul gleich einen Befehl hinzufügen, der die Funktion
"Speichern unter" aktiviert und den Namen "MAPPE1_DATEN" vergibt bzw. vorschlägt?
Danke nochmals
Gruß
Andy
Anzeige
AW: Tabellenblatt exportieren
24.01.2005 22:18:08
Josef
Hallo Andreas!
Wo lag der Fehler?
Achte wieder auf die Namen!


      
Sub BlattKopieren()
Dim strFile As String
strFile = 
"MAPPE1_DATEN"   'Hier kanst du den Dateinamen vorgeben!
                           'Auch mit Pfad!
                           '"C:\Eigene Dateien\MAPPE1_DATEN"

strFile = Application.GetSaveAsFilename(initialfilename:=strFile, _
    fileFilter:=
"Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
    
If strFile = "Falsch" Then Exit Sub
Workbooks(
"Mappe.xls").Sheets("EXPORT").Copy
   
With ActiveWorkbook
      .Sheets(1).Name = 
"Exportdaten"
      .SaveAs strFile
      
'.Close   'wenn die neue Mappe geschlossen werden soll!
   End With
End Sub 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt exportieren in Excel


Schritt-für-Schritt-Anleitung

Um ein einzelnes Blatt aus einer Excel-Arbeitsmappe zu exportieren, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne den Visual Basic Editor (VBE):

    • Drücke ALT + F11 in Excel, um den VBE zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen und wähle Modul.
  3. Füge den VBA-Code ein:

    • Kopiere den folgenden Code in das neue Modul:
    Sub BlattKopieren()
       Dim strFile As String
       strFile = "Exportdaten" ' Hier kannst du den Namen des neuen Blattes anpassen
    
       ' Neue Arbeitsmappe erstellen
       Workbooks.Add
       ActiveWorkbook.Sheets(1).Name = strFile
    
       ' Exportiere das Tabellenblatt
       Workbooks("Mappe1.xls").Sheets("EXPORT").Copy Before:=ActiveWorkbook.Sheets(1)
    
       ' Speichern unter
       strFile = Application.GetSaveAsFilename(initialfilename:=strFile, _
           fileFilter:="Excel Files (*.xls; *.xla; *.xlt), *.xls; *.xla; *.xlt")
    
       If strFile = "Falsch" Then Exit Sub
    
       ActiveWorkbook.SaveAs strFile
       ActiveWorkbook.Close
    End Sub
  4. Führe den Code aus:

    • Weise den Code einem Button zu oder führe ihn direkt im VBE aus, um das Tabellenblatt zu exportieren.

Häufige Fehler und Lösungen

Laufzeitfehler 9: Index außerhalb des gültigen Bereichs
Dieser Fehler tritt auf, wenn das angegebene Arbeitsblatt oder die Arbeitsmappe nicht gefunden werden kann. Stelle sicher, dass die Arbeitsmappe "Mappe1.xls" geöffnet ist und das Blatt "EXPORT" existiert.

Fehler beim Speichern
Wenn Du beim Speichern eine Fehlermeldung erhältst, überprüfe den Dateinamen und stelle sicher, dass der Pfad gültig ist. Achte darauf, dass Du keine ungültigen Zeichen im Dateinamen verwendest.


Alternative Methoden

Eine alternative Methode zum Exportieren eines Excel-Arbeitsblatts ist die Verwendung von Power Query. Damit kannst Du Daten aus verschiedenen Quellen importieren und die gewünschten Blätter exportieren. Diese Methode eignet sich besonders für umfangreiche Datenanalysen.


Praktische Beispiele

Hier ist ein einfaches Beispiel, wie Du ein einzelnes Blatt exportieren kannst:

  1. Öffne die Arbeitsmappe "MAPPE1.xls".
  2. Starte die Excel-Anwendung und führe den VBA-Code aus.
  3. Das Blatt "EXPORT" wird in eine neue Arbeitsmappe kopiert und als "Exportdaten" gespeichert.

Verwende die Funktion Excel blatt exportieren, um schnell und effizient Daten in eine neue Datei zu übertragen.


Tipps für Profis

  • Verwende Fehlerbehandlung: Integriere On Error Resume Next, um den Code robuster zu machen und Fehler zu vermeiden.
  • Automatisiere den Export: Setze Makros ein, um regelmäßig Daten zu exportieren, z.B. wöchentlich oder monatlich.
  • Dokumentiere Deinen Code: Kommentiere Deinen VBA-Code, damit Du und andere Nutzer leichter verstehen, was jeder Teil des Codes macht.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Blätter gleichzeitig exportieren?
Du kannst eine Schleife verwenden, um alle gewünschten Blätter in einer neuen Arbeitsmappe zu kopieren.

2. Ist VBA die einzige Möglichkeit, um ein Blatt zu exportieren?
Nein, Du kannst auch die Funktion "Speichern unter" in Excel verwenden, um ein Arbeitsblatt als separate Datei zu speichern. VBA bietet jedoch mehr Automatisierung und Flexibilität.

3. Kann ich den Export automatisieren?
Ja, Du kannst VBA-Makros erstellen, die automatisch zur gewünschten Zeit ausgeführt werden, um Deine Daten zu exportieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige