hallo alle miteinander,
machdem ich jetzt schon enige makros aus dem netz vergeblich versucht habe kann mir vieleicht jemand helfen.
ich habe eine arbeitsmappe mit 2 tabellnblättern. im ersten habe ich unter anderem einen hyperlink mit dem ich auf die zweite seite komme. hier kann ich eine kalkulation durchführen. ich möchte jetzt mit dem makro folgendes erreichen. Wenn ich ein formularfeld anklicke soll im fenster " speichern unter " der ordner c:\dokumente und einstellungen\besitzer\eigene Dateien\bsg\kunden geöffnet werden und als speichertitel der kundenname, welcher in d2 steht, stehen. im ordner „kunden“ gibt es noch unterordner von a-z. noch besser wäre wenn der entsprechende ordner, der mit dem anfangsbuchstaben des kunden beginnt, geöffnet wird und die krönung wäre, wenn hinter dem kundennamen das aktuelle datum auch noch gespeichert wird.
ich hoffe mein anliegen gut genug geschildert zu haben und danke für jede antwort.
" speichern unter " der ordner c:\dokumente und
einstellungen\besitzer\eigene Dateien\bsg\kunden geöffnet
werden und als speichertitel der kundenname, welcher in d2
steht, stehen. im ordner „kunden“ gibt es noch unterordner von
a-z. noch besser wäre wenn der entsprechende ordner, der mit
dem anfangsbuchstaben des kunden beginnt, geöffnet wird und
die krönung wäre, wenn hinter dem kundennamen das aktuelle
datum auch noch gespeichert wird.
Hallo! Hier ein Vorschlag.
Den Tabellennamen „Tabelle1“ musst Du anpassen: für die Tabelle mit dem Feld D2 mit dem Kundennamen.
Sub SpeichernUnter()
Dim fName, oName, dName 'File, Ordner, Directory
fName = Range(„Tabelle1!D2“) & „_“ & Format(Date, „yyyymmdd“) & „.xls“
oName = Left(fName, 1)
dName = „C:\Dokumente und Einstellungen\besitzer\Eigene Dateien\bsg\kunden“ & oName
ChDir dName
ActiveWorkbook.SaveAs Filename:=dName & „“ & fName
End Sub
Frohe Ostern! Niclaus
Wenn ich ein formularfeld anklicke soll im fenster
Hallo Spiderjojo,
was meinst du damit?
Sub tt()
Dim S As Boolean, Merker As String, Datei As String
Const Pfad As String = "c:\dokumente und einstellungen\besitzer\eigene Dateien\bsg\kunden"
Merker = CurDir
With Worksheets("Tabelle1").Range("D2")
Datei = .Value & "\_" & Format(Date, "yyyymmdd") & ".xls"
ChDir Pfad & Left(.Value, 1)
S = Application.Dialogs(xlDialogSaveAs).Show(Datei)
End With
ChDir Merker
End Sub
Gruß
Reinhard
Hallo Niclaus,
Super, so hatte ich mir das vorgestellt. Danke
Auch noch frohe Ostern
Joachim
Hallo Reinhard,
auch Dir gilt mein Dank. Bei dem Makro wird allerdings der Ordner Kunden nicht geöffnet.
Auc Dir noch ein frohes Osterfest.
Joachim
auch Dir gilt mein Dank. Bei dem Makro wird allerdings der
Ordner Kunden nicht geöffnet.
Hallo Joachim,
ich habe in ein Blatt in D2 eingetragen „caesar“
Im Ordner „C:\test“ habe ich die Unterordner a,b,c angelegt.
Dementsprechend den Code angepasst.
Nach Makrostart wurde dann das „Speichern unter“-Fenster angezeigt.
Der Speicherordner war „C:\test\c“
Der dateiname „caesar_20100404.xls“
K.A. was da bei dir falsch läuft.
Setz mal vor dem ChDir Befehl ein
ChDrive „C“
*rumrat*
Gruß
Reinhard
Hallo Reinhold,
wenn ich es so schreibe
ChDrive „C“ * rumrat * ChDir Merker
oder so
ChDrive „C“ *rumrat* ChDir Pfad & Left(.Value, 1)
ob mit oder ohne Rumrat, ich bekomme immer Fehler: beim Kompalieren Erwartet: Anweisungsende
Gruß Joachim
ChDrive „C“ * rumrat * ChDir Merker
oder so
ChDrive „C“ *rumrat* ChDir Pfad & Left(.Value, 1)
ob mit oder ohne Rumrat, ich bekomme immer Fehler: beim
Kompalieren Erwartet: Anweisungsende
Hallo Joachim,
*rumrat* bedeutet nur daß ich herumrate warum es bei dir nicht funktioniert, hat mit dem Code nix zu tun.
ChDrive „C“
ChDir Pfad & Left(.Value, 1)
Gruß
Reinhard
Hallo Reinhard,
auch das ChDrive „C“ hilft nicht. Also nochmal, ich habe eine Arbeitsmappe mit zwei Tabellenblättern, daß erste heißt Start und das Zweite Haube. den Makro habe ich in Tabelle2( Haube ) eingesetzt, denn da sind auch die Daten welche gespeichert werden sollen.
Wenn Du dafür keine Lösung hast, ist es auch nicht Tragisch, denn das Makro von Niclas macht genau das was ich möchte.
Ich weiß, ich bin auch so, wenn etwas nicht funktioniert suche ich solange bis ich die Lösung habe, nur vom Programieren hab ich nicht viel Ahnung.
Wei gesagt, nicht Schlimm, möchte ich Dir für Deine Bemühungen danken.
Gruß Joachim
Hallo Joachim,
auch das ChDrive „C“ hilft nicht. Also nochmal, ich habe eine
Arbeitsmappe mit zwei Tabellenblättern, daß erste heißt Start
und das Zweite Haube. den Makro habe ich in Tabelle2( Haube )
eingesetzt, denn da sind auch die Daten welche gespeichert
werden sollen.
Moment mal, willst du die ganze Mappe abspeichern oder nur das Blatt „haube“ als neue Mappe?
Wie gesagt, mein Code lief bei mir.
Ich weiß nicht warum bei dir nicht.
Gruß
Reinhard