Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.03.2009 10:49:10 |
Stefan |
|
|
|
18.03.2009 15:33:27 |
Holger |
|
|
Aw:Aw:per Makro Ordner aus 3 Zellen anlegen |
18.03.2009 16:51:33 |
Stefan |
|
|
Von:
Stefan |
Datum:
18.03.2009 16:51:33 |
Views:
830 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:per Makro Ordner aus 3 Zellen anlegen |
Hallo Holger SUPER genau so soll es Funktionieren DANKE!!!!!
Holger schrieb am 18.03.2009 15:33:27:
Hallo Stefan,
ich denke, folgender (ungeprüfter) Code sollte es tun:
Set Fso = CreateObject("Scripting.FileSystemObject")
pf="C:\Ordner1\Ordner2\Ordner3\Ordner4\Ordner5"
Set Ord = Fso.GetFolder(pf)
Set UOrd = Ord.subFolders
a=range("d2")&range("m11")
Pf = Pf + "\" & a
If Fso.FolderExists(Pf) = False Then g = fso.createfolder(pf)
NeuerName = Range("D21") & Range("AD34") & ("_") & Range("G39")
SaveAs pf & "\" & NeuerName
Gruß
Holger
Stefan schrieb am 17.03.2009 10:49:10:
Hallo ich hab folgendes Problem mit Excel97:
Hab ein Tabellenblatt das bereits per Makro das Blatt mit einem Namen zusammengesetzt aus 3 Zellbezügen Speichert nur muss ich vorher den Ordner in dem das Tabelleblatt gespeichert werden soll anlegen und dann im Code den Ordner Ändern. Wie kann ich es machen, dass Excel überprüft, ob eine Ordner mit dem Namen aus ZelleD2+ZelleM11 vorhanden ist wenn nicht diesen anlegt und darin Speichert unter den Dateinamen aus Zelled21&AD34&LEERZEICHEN&ZelleG39.
Hier der Code den ich dafür verwende.
Das klappt auch
nur den Ordner weiß ich nicht wie das aussehen soll
Private Sub CommandButton13_Click()
Dim NeuerName As String
NeuerName = Range("D21") & Range("AD34") & ("_") & Range("G39")
SaveAs "C:\Ordner1\Ordner2\Ordner3\Ordner4\Ordner5\Ordner6\" & NeuerName
bisher muss ich immer Ordner6 anlegen und dann natürlich im Code umbenennen
also in Ordner 5 soll es wenn nicht vorhanden einen Ordner mit dem Text aus Zelle D2&M11 anlegen und dann das Tabellenblatt darin speichern ansonsten wenn ordner vorhanden darin speichern.
Kann mir da jemand helfen??
Schon mal danke |
- 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
|
|
17.03.2009 10:49:10 |
Stefan |
|
|
|
18.03.2009 15:33:27 |
Holger |
|
|
Aw:Aw:per Makro Ordner aus 3 Zellen anlegen |
18.03.2009 16:51:33 |
Stefan |
|
|