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

Forumthread: Arbeitsmappe anlegen und benennen mit VBA

Arbeitsmappe anlegen und benennen mit VBA
28.01.2006 11:05:54
WHN
Hallo Leute,
ich möchte eine neue Arbeitsmappe anlegen und dieser Mappe gleich einen Namen geben und unter diesen Namen speichern.
Ich bitte um euere Hilfe
Freundliche Grüße
Werner
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsmappe anlegen und benennen mit VBA
28.01.2006 11:07:59
Josef
Hallo Werner!
Sub WHN()

Workbooks.Add

ActiveWorkbook.SaveAs "C:\neueMappe.xls"

End Sub



'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Arbeitsmappe anlegen und benennen mit VBA
28.01.2006 11:09:17
Matthias
Hallo Werner,

Sub neueMappe()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.SaveAs Filename:="D:\MeineMappe.xls"
End Sub

Gruß Matthias
AW: Danke für die schnelle Hilfe
28.01.2006 11:27:50
WHN
Danke an Josef und Matthias,
das nennt man schnelle Hilfe.
Freundliche Grüße
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Arbeitsmappe anlegen und benennen mit VBA


Schritt-für-Schritt-Anleitung

Um eine neue Arbeitsmappe mit VBA zu erstellen und sie gleich zu benennen, kannst du die folgenden Schritte befolgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub neueMappe()
       Dim wb As Workbook
       Set wb = Workbooks.Add
       wb.SaveAs Filename:="C:\DeinPfad\neueMappe.xls"
    End Sub
  4. Ersetze C:\DeinPfad\neueMappe.xls mit dem gewünschten Speicherort und Dateinamen.

  5. Drücke F5, um das Makro auszuführen. Eine neue Arbeitsmappe wird erstellt und unter dem angegebenen Namen gespeichert.


Häufige Fehler und Lösungen

  • Fehler: "Pfad nicht gefunden"
    Stelle sicher, dass der angegebene Pfad korrekt ist und die erforderlichen Berechtigungen zum Speichern der Datei vorhanden sind.

  • Fehler: "Datei kann nicht gespeichert werden"
    Überprüfe, ob die Datei möglicherweise bereits geöffnet ist oder ob du Schreibschutz auf den Speicherort hast.


Alternative Methoden

Du kannst auch VBA verwenden, um eine neue Arbeitsmappe zu erstellen und sie direkt zu benennen, ohne den Umweg über das Speichern. Hier ist ein Beispiel:

Sub neuesWorkbookErstellen()
   Workbooks.Add
   ActiveWorkbook.SaveAs Filename:="C:\DeinPfad\neueArbeitsmappe.xlsx"
End Sub

Diese Methode ist ähnlich, aber etwas kompakter.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie du eine neue Arbeitsmappe mit verschiedenen Namen erstellen kannst:

  1. Einfaches Beispiel:

    Sub einfacheMappe()
       Workbooks.Add
       ActiveWorkbook.SaveAs Filename:="C:\DeinPfad\einfach.xls"
    End Sub
  2. Beispiel mit dynamischem Namen:

    Sub mappeMitDatum()
       Dim wb As Workbook
       Set wb = Workbooks.Add
       wb.SaveAs Filename:="C:\DeinPfad\Mappe_" & Format(Date, "YYYYMMDD") & ".xls"
    End Sub

Diese Beispiele zeigen dir, wie flexibel du mit VBA neue Arbeitsmappen erstellen kannst.


Tipps für Profis

  • Verwende On Error Resume Next, um Fehler abzufangen, wenn du versuchst, eine Datei an einem bereits existierenden Speicherort zu speichern.
  • Nutze Variablen, um Pfade und Dateinamen dynamisch zu generieren, um die Wartbarkeit deines Codes zu erhöhen.
  • Berücksichtige, dass einige Excel-Versionen unterschiedliche Dateiformate unterstützen. Achte darauf, das richtige Format für deine Excel-Version zu wählen.

FAQ: Häufige Fragen

1. Wie kann ich die neue Arbeitsmappe in einem bestimmten Format speichern?
Du kannst das Format im SaveAs-Befehl angeben, z.B. wb.SaveAs Filename:="C:\DeinPfad\neueMappe.xls", FileFormat:=xlWorkbookDefault.

2. Ist es möglich, mehrere Arbeitsmappen gleichzeitig zu erstellen?
Ja, du kannst eine Schleife verwenden, um mehrere Arbeitsmappen während eines einzigen Makros zu erzeugen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige