Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Speichern mit mehreren Bedingungen und Pfade
19.01.2018 11:11:48
Hans
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern mit mehreren Bedingungen und Pfade
19.01.2018 12:21:15
Rudi
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
AW: Speichern mit mehreren Bedingungen und Pfade
19.01.2018 12:52:04
Hans
Hallo Rudi
Genau das wars
Vielen Vielen Dank
Mein Tag ist gerettet
MFG Hans
Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige