Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Speichern mit mehreren Bedingungen und Pfade


Betrifft: Speichern mit mehreren Bedingungen und Pfade von: Hans
Geschrieben am: 19.01.2018 11:11:48

Hallo Liebe Gemeinde

Komme beim meinen zusammengeschusterten Makro nicht mehr weiter.
Habe folgendes Problem

Das Speichern in dem vorgebenen Pfad klappt ganz gut, jetzt mein Problem
Wenn in Zelle D15 "BRA" Drinsteht dann soll er noch zusätzlich in einen anderen Speicherort abspeichern
Das gleiche wenn in Zelle D15 RRA Drinsteht dann noch zusätzlich wieder in ein anderen Pfad zum Speichern.

Sub speichern_unter()
Dim lw_pfad As String

lw_pfad = ActiveSheet.Range("M1").Value

'lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert  _
werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in N1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben  _
haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("M1").Value = lw_pfad
  
Rem MsgBox lw_pfad
ActiveSheet.Copy
Application.CutCopyMode = False
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).Select
        Selection.Delete
        
    Range("M1:M2").Select
    Selection.ClearContents
    Range("O17").Select
    
    
ActiveSheet.SaveAs lw_pfad & ActiveSheet.Range("D5") & " - " & ActiveSheet.Range("D15").Value &  _
".xlsx"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("D5").Value & ".xlsx gespeichert." _
, , "OK"



End If
ActiveWorkbook.Close                'Gespeicherte Lieferschein schliesen
Application.DisplayAlerts = False   'abfrage ob ich wirklisch löschen will ausschalten
'ActiveWindow.SelectedSheets.Delete 'Gespeicherte Lieferschein löschen
Application.DisplayAlerts = True    'abfrage wieder einschalten
Worksheets("Vorlage Lieferschein").Activate
    Range("D5").ClearContents
    Range("D11:E11").ClearContents
    Range("A19:K314").ClearContents
    Range("M23").Select
    
Call Speichern_dann_Schliesen
End Sub

Mit freundlichen Gruss
Hans

  

Betrifft: AW: Speichern mit mehreren Bedingungen und Pfade von: Rudi Maintaire
Geschrieben am: 19.01.2018 12:21:15

Hallo,
frag D5 doch einfach ab.

Select case Range("D5")
case "BRA"
ActiveSheet.SaveAs "c:\test\" & ActiveSheet.Range("D5") & " - " & ActiveSheet.Range("D15"). _
Value, xlopenxmlworkbook
Case "RRA"
ActiveSheet.SaveAs "c:\test2\" & ActiveSheet.Range("D5") & " - " & ActiveSheet.Range("D15"). _
Value, xlopenxmlworkbook
End select

Gruß
Rudi


  

Betrifft: AW: Speichern mit mehreren Bedingungen und Pfade von: Hans
Geschrieben am: 19.01.2018 12:52:04

Hallo Rudi

Genau das wars

Vielen Vielen Dank

Mein Tag ist gerettet

MFG Hans


Beiträge aus dem Excel-Forum zum Thema "Speichern mit mehreren Bedingungen und Pfade"