Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.06.2014 11:53:52 |
Henrik |
|
|
|
26.06.2014 19:22:10 |
Amicro2000 |
|
|
[VBA] Excel mit mehreren Blättern abspeicher |
01.07.2014 10:34:06 |
Gast71657 |
|
|
|
01.07.2014 10:37:13 |
henrik |
|
|
|
01.07.2014 10:47:47 |
henrik |
|
|
|
01.07.2014 20:45:33 |
Amicro2000 |
|
|
|
02.07.2014 09:23:22 |
Henrik |
|
|
|
02.07.2014 12:45:12 |
Amicro2000 |
|
|
|
02.07.2014 14:37:06 |
Gast62928 |
|
|
|
02.07.2014 15:50:08 |
Amicro2000 |
|
|
Von:
Gast71657 |
Datum:
01.07.2014 10:34:06 |
Views:
902 |
Rating:
|
Antwort:
|
Thema:
[VBA] Excel mit mehreren Blättern abspeicher |
Hi,
ich möchte, dass jedes Tabellenblatt separat als eine Excel gespeichert wird. Alle Tabellenblätter sollen in den gleichen Ordner gespeichert werden. Das funktioniert auch bisher sehr gut über das folgende Skript:
Sub test()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Copy
ActiveWorkbook.SaveAs "C:\DeinOrdner\" & "Gutscheinabrechnung " & _
ThisWorkbook.Name & " - " & sh.Name, xlExcel12
ActiveWorkbook.Close
Next
End Sub
Ich würde jedoch gerne, dass das Skrip noch 2 weitere Sachen macht.
1: Es soll in allen Tabellenblättern die komplette Spalte D löschen.
2: Die einzelnen Blätter sind in der Excel mit einer Kennziffer benannt. Ich habe in einem weiteren Tabellenblatt "store_id Zuordnung" in Spalte A alle Kennziffern und in Spalte B zu jeder Kennziffer einen konkreten Namen stehen. Jetzt möchte ich, dass mir das Skript - nicht wie oben die Tabellenblätter mit ihrer Kennziffer abspeichert - sondern per Sverweis statt den Kennziffern direkt die Namen aus dem Tabellenblatt "store_id Zuordnung" abgreift und diesen Namen anstelle der Kennziffer einfügt.
Wäre Klasse, wenn das irgendwie möglich wäre!
BG
Henrik
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.06.2014 11:53:52 |
Henrik |
|
|
|
26.06.2014 19:22:10 |
Amicro2000 |
|
|
[VBA] Excel mit mehreren Blättern abspeicher |
01.07.2014 10:34:06 |
Gast71657 |
|
|
|
01.07.2014 10:37:13 |
henrik |
|
|
|
01.07.2014 10:47:47 |
henrik |
|
|
|
01.07.2014 20:45:33 |
Amicro2000 |
|
|
|
02.07.2014 09:23:22 |
Henrik |
|
|
|
02.07.2014 12:45:12 |
Amicro2000 |
|
|
|
02.07.2014 14:37:06 |
Gast62928 |
|
|
|
02.07.2014 15:50:08 |
Amicro2000 |
|
|