25.02.2021, 10:11
(23.02.2021, 18:34)StefKe schrieb: hm,kompliziert - also
Tabelle A -> in neue Arbeitsmappe verschieben und speichern
Tabelle B-> in neue Arbeitsmappe verschieben und speichern
Tabelle Sport->nix tun
Tabelle C -> in neue Arbeitsmappe verschieben und speichern
Tabelle keinName -> nix tun
Tabelle Kevin -> nix tun
Tabelle D -> in neue Arbeitsmappe verschieben und speichern
macht am Ende 5 Arbeitsmappen(A-D und die originale Mappe), richtig so?
„hm,kompliziert – also“ - Weiß ich J
Tabelle A -> Copy und Speichern in neue Arbeitsmappe unter Tabname
Tabelle B-> Copy und Speichern in neue Arbeitsmappe unter Tabname
Tabelle Sport->nix tun
Tabelle C -> Copy und Speichern in neue Arbeitsmappe unter Tabname
Tabelle keinName -> nix tun
Tabelle Kevin -> nix tun
Tabelle D -> Copy und Speichern in neue Arbeitsmappe unter Tabname
Die Original Datei bleibt wie die ist.
Meine Idee war das ich dies mit dem Befehl machen, aber es ging nicht, ohne das Befehl funktioniert es, aber das Makro speichert alles:
'***** If oSheet.Name <> "Sport" And oSheet.Name <> "Kein Name" And oSheet.Name <> "Kevin" And oSheet.Name <> "Spielen" And oSheet.Name <> "Video" Then
Wenn die Tabelle so heißt, dann dies unten.
oSheet.Copy
With ActiveWorkbook
tSheetName = oSheet.Name
.SaveAs tPath & tFileName & "_" & tSheetName & ".xmls"
.Close SaveChanges:=False
End With
Next oSheet