Thema Datum  Von Nutzer Rating
Antwort
28.01.2020 21:06:58 Gast86764
NotSolved
Blau Falls Datei vorhanden, als andere speichern
 29.01.2020 10:19:23 Gast21071
NotSolved

Ansicht des Beitrags:
Von:
Gast21071		 Datum:
29.01.2020 10:19:23		 Views:
723		 Rating:
     
Antwort:
  Ja
Thema:
Falls Datei vorhanden, als andere speichern

Hallo

- Doppelpunkt in Dateiname??  ist nicht zulässig

- Die Abfrage ob H7 leer kannst du so übergehen und statt dessen __ in _ ändern

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
    Verzeichnisname = Format(Date, "yyyy")
    Verzeichnisname2 = Format(Time, "HH_MM") ' HH:MM   Doppelpunkt im Speicername ist nicht erlaubt
    Pfad = "G:\Excel\" & Verzeichnisname
    Pfad2 = Pfad & "\" & Range("J1")
    Ext = ".xlsm"
      
    Dim sTitle As String
    sTitle = "Bedarfsanzeige nicht vollständig"
      
    If IsEmpty(Sheets("Bedarfsanzeige").Range("Anforderer")) Then
        MsgBox prompt:="" & Chr(13) & "> Anforderer Name fehlt", Title:=sTitle
        GoTo LastLine
    End If
      
    If IsEmpty(Sheets("Bedarfsanzeige").Range("F6")) Then
        MsgBox prompt:="" & Chr(13) & "> Verwendungszweck nicht vorhanden", Title:=sTitle
        GoTo LastLine
    End If
      
    Worksheets("Bedarfsanzeige").Range("N1").Value = 1
    If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
    If Dir(Pfad2, vbDirectory) = "" Then MkDir Pfad2
         
    neuname = Pfad2 & "\" & Range("J1") & "_" & Range("J3") & "_" & Range("J2") & "_" & Range("H7") & "_" & Verzeichnisname2
    neuname = Replace(neuname, "__", "_") 'wenn H7 =leer
     
    If Dir(neuname & Ext) <> "" Then neuname = neuname & "_" & Second(Time) & Ext 'wenn schon da, Sekunden anhängen
     
    ThisWorkbook.SaveAs neuname, FileFormat:=xlOpenXMLWorkbookMacroEnabled
         
LastLine:

 

Ihre Antwort
  • 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: Name: Email:



  • 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
28.01.2020 21:06:58 Gast86764
NotSolved
Blau Falls Datei vorhanden, als andere speichern
 29.01.2020 10:19:23 Gast21071
NotSolved