Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Arbeitsblätter in jeweils einer eigenen Arbeitsmappe speichern
#7
(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
Zitieren


Nachrichten in diesem Thema
RE: Arbeitsblätter in jeweils einer eigenen Arbeitsmappe speichern - von snad - 25.02.2021, 10:11

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions