Hallo,
ich habe folgendes Problem und ich hoffe, dass mir jemand weiterhelfen kann.
Sub getworkbook()
' Auswahl Workbook
Dim ws As Worksheet
Dim filter As String
Dim targetWorkbook As Workbook, wb As Workbook
Dim Ret As Variant
Set targetWorkbook = Application.ActiveWorkbook
' Einstellungen vom File Dialog
filter = "Text files (*.xlsx),*.xlsx"
Caption = "Bitte wählen Sie eine Datei aus dem VAT Upload Ordner aus "
Ret = Application.GetOpenFilename(filter, , Caption)
If Ret = False Then Exit Sub
Set wb = Workbooks.Open(Ret)
wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
' If Anweisung für Bezeichnung der Arbeitsmappen
If Workbooks("Woche.xlsx") = True Then
ActiveSheet.Name = "Woche"
Else
ActiveSheet.Name = "Feiertag"
End If
Mit dieser Funktion möchte ich vorhandene Excel Tabellen in eine neue Excel Tabelle einfügen. Das funktioniert soweit auch.
Der Punkt ist nur, dass sich die Arbeitsmappen nicht automatisch mitumbennen.
' If Anweisung für Bezeichnung der Arbeitsmappen
If Workbooks("Woche.xlsx") = True Then
ActiveSheet.Name = "Woche"
Else
ActiveSheet.Name = "Feiertag"
End If
Beim ersten Import möchte ich, dass die erste neue Arbeitsmappe Woche heißt und beim zweiten Import soll die nächste Arbeitsmappe Feiertag heißen.
Über eine Antwort würde ich mich freuen.
Grüße
Jan
|