Speicherort der Datei auf Tabellenblatt auswählen

[wavemaster]

Sorry Schauan,
bin schon etwas durcheinander vom vielen austesten, hatte die falsche Datei.
Da Ich wie schon gesagt nicht der VBA Profi bin ( besser gesagt Laie), weis Ich im Moment nicht wo Ich die Zeile in Makro 2 einfügen soll.

Hilfe hierzu wäre nett.

wie sieht es mit Makro 3 aus würde das dan stimmen......

[schauan]

Hallöchen,

schaue mal nach den Wörtern FileName und getname.. Im code steht irgendwo FileName:=getname( und das baust Du so um, wie ich es beschrieben habe.

[wavemaster]

Hallöchen,

schaue mal nach den Wörtern FileName und getname.. Im code steht irgendwo  FileName:=getname( und das baust Du so um, wie ich es beschrieben habe.

Ebenfalls Hallöchen,

habe vor lauter Bäumen den Wald nicht mehr gesehen. Jetzt funzt es .  Danke.

Das mit dem ändern von SaveAs auf SaveCopyAs klappt nicht kommt eine Fehlermeldung

[wavemaster]

Hallöchen,

schaue mal nach den Wörtern FileName und getname.. Im code steht irgendwo  FileName:=getname( und das baust Du so um, wie ich es beschrieben habe.

Hallo Schauan,
habe es so gemacht wie du geschrieben hast, beim ersten Speichern geht es, wenn Ich aber eine 2 Mappe mit dem gleichen Namen speichern möchte ftragt er ob er die erste Überschreiben soll. Das sollte nicht sein.
wenn Ich  deine Angabe

 "den Pfad musst Du auch zum Speichern angeben

... Filename:=pfad & "\" & getName( ..."

nicht eingebe speichert er in eigene Dokumente und zählt hochh 001,002,003, wie gewünscht . Irgendwo ist dort eine kleine ungereimtheit.

Kannst du dir das nochmals ansehen.

Betrifft das Modul 3

[Käpt'n Blaubär]

... wenn Ich aber eine 2 Mappe mit dem gleichen Namen speichern möchte ftragt er ob er die erste Überschreiben soll.
Das sollte nicht sein

Selbst eineiige Zwillinge kommen nacheinander auf die Welt. Folglich gibt es zumindest einen zeitlichen Unterschied.
Wenn Du also hergehst und in Deinen Dateinamen beim Speichern eine Uhrzeit verdrahtest, dann hast Du gleichzeitig
auch Dein jetziges Problem gelöst.

[wavemaster]

Hallo Peter ,
geht leider auch nicht.
habe nach dem Datum das "hhmm" eingefügt. Kein Erfolg.

Ist es nicht möglich den unteren Teil des Makros im oberen Teil zu implentieren????

Sub MappeSpeicherntom1()

Pfad = Range("b2").Value

If Pfad <> "" Then

ActiveWorkbook.SaveAs Filename:=Pfad & "\" & getName(Format(Date, "YYYY-MM-DD_hhmm_") & Sheets("Grunddaten").Range("B4"), ".xlsm"), FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Else

MsgBox "Es wurde noch kein Pfad festgelegt!"



End If



End Sub





Private Function getName(ByVal strName As String, ByVal strExtension As String) As String

   Dim lngNummer As Long

 

   If Dir(strName & strExtension) = "" Then

      getName = strName & strExtension

   Else

      lngNummer = 1

      While Dir(strName & "_" & Format(lngNummer, "000") & strExtension) <> ""

         lngNummer = lngNummer + 1

      Wend

      getName = strName & "_" & Format(lngNummer, "000") & strExtension

   End If

End Function

Das wäre eigentlich das beste.


Danke

[schauan]

Hallo wavemaster,

Asche auf mein Haupt - der Pfad muss etwas weiter nach rechts in der codezeile.
also nicht
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & getName(Format...
sondern
ActiveWorkbook.SaveAs Filename:=getName(Pfad & "\" & Format

(ungetestet)

[Käpt'n Blaubär]

Hallöchen,

viel Zeit habe ich heute wenig, darum hier ein Codeschnipsel und die Frage, ob Du ihn auf Deine Anforderungen umstricken kannst

Code:

Option Explicit

Dim c1 As String
Dim c2 As String
Dim c3 As String
''
Sub Nani()
'
' Makro am 09.03.2007 von Klaus Peter Hopp aufgezeichnet
''
c1 = "kph_"
c2 = Range("C1").Value
'
' Workbooks.Open Filename:=Left(ThisWorkbook.FullName, 1) & ":\Betrieb\0_Büro\System\Konten"
'
 ActiveWorkbook.Save  ' As Filename:="C:\Peter_Mappe11" & ".xls"
 ActiveWorkbook.SaveCopyAs Filename:="C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\" _
     & c1 & Format(Now, "YY.MM.DD_HH.MM.SS") & "_" & c2 & ".XLS"
End Sub

[wavemaster]

Hallo wavemaster,

Asche auf mein Haupt - der Pfad muss etwas weiter nach rechts in der codezeile.
also nicht
ActiveWorkbook.SaveAs Filename:=Pfad & "\" & getName(Format...
sondern
ActiveWorkbook.SaveAs Filename:=getName(Pfad & "\" & Format

(ungetestet)

Absolut es passt
Danke

Noch eine kleine Frage dazu. Betseht eigentlich die Möglichkeit im oberen Teil des Makros , das Wort "SVDW" vor dem Speichernamen aus Feld B4 eingefügt wird .

das der Speichername wie folgt aussieht.

25-03-2015_SVDW_wavemaster

im unteren Makro habe Ich das "SVDW" eingegeben..

lngNummer = 1


      While Dir(strName & "_VVDW_" & Format(lngNummer, "000") & strExtension) <> ""

         lngNummer = lngNummer + 1

      Wend

      getName = strName & "_SVDW_" & Format(lngNummer, "000") & strExtension

da funktioniert es sobald man einen Namen zum 2mal abspeichert sieht es so aus.

25-03-2015_SVDW_wavemaster_001

das wäre natürlich Bombig

[schauan]

hallöchen,

warum schreibst Du es nicht in den Aufruf?

ActiveWorkbook.SaveAs Filename:=Pfad & "\" & getName(Format(Date, "YYYY-MM-DD_hhmm_")  & "_SVDW_" & Sheets("Grunddaten").Range("B4"), ".xlsm") ...