Hallo Liebes VBA Froum
Nachdem mir hier letztes Mal wunderbar geholfen wurde habe ich ein neues Problem:
Ich möchte aus einer bestehenden Arbeitsmappe das Tabellenblatt "Uebersicht" in einer separaten Arbeitsmappe abspeichern (Kopie).
Der Dateipfad dazu ist pro Jahr gleich, nach Jahreswechsel ändert sich dieser.
Es ist nicht der gleiche Pfad wie dort wo Bereits meine Ausgangsarbeitsmappe gespeichert ist.
In meinem VBA Buch habe ich folgenden Code gefunden, allerdings ist dieser für alle Arbeitsmappen einer Datei.
Sub TabellenAlsDateienSpeichern()
Dim strPfad As String
Dim wksBlatt As Worksheet
Dim wkbZiel As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strPfad = ThisWorkbook.Path & "\Tabellen\"
If Dir(strPfad, vbDirectory) = "" Then
MkDir strPfad
End If
For Each wksBlatt In ThisWorkbook.Worksheets
wksBlatt.Copy
Set wkbZiel = ActiveWorkbook
wkbZiel.SaveAs (strPfad & wksBlatt.Name)
wkbZiel.Close savechanges:=False
Next wksBlatt
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Meine Fragen hierzu:
1. Es macht doch mehr Sinn den Dateipfad als Konstante anzulegen und pro Jahr dann anzupassen?
2. Wie kann ich den bestehenden Code ändern, dass dieser nur für die Arbeitsmappe "Uebersicht" aktiv ist?
3. Ich möchte die Arbeitsmappe nur mit folgenden Namen abspeichern: Name des Bearbeiters + Genauer Speicherzeitpunkt Datum Uhrzeit Minuten und Sekunden.
Irgendwie tue ich mich mit der Anpassung sehr schwer...
Vielen Dank für eure Hilfe!
Liebe Grüsse
Janine
|