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