Clever-Excel-Forum

Hallo,

ich habe das folgende Makro, welches ich nutze zum abspeichern von Tabellenblättern.

Option Explicit

Sub LoeschenBestellblaetterundCSVspeichern()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In ThisWorkbook.Sheets
   If LCase(wks.Name) <> "bestellung" And _
     LCase(wks.Name) <> "bestand" And _
     LCase(wks.Name) <> "ek" Then
     wks.Copy
     ActiveWorkbook.SaveAs "S:\_Vertraege_ET_WIL\Bestelldatei\" & ActiveSheet.Name, xlCSV, Local:=True
     ActiveWorkbook.Close False
   End If
Next wks
Application.ScreenUpdating = True
MsgBox "Dateien erfolgreich gespeichert"
End Sub

Nun möchte ich, dass in dem hervorgehobenen Bereich zusätzlich am Ende der Zusatz HMüller steht.

Wie ist dies machbar?

Danke für die Hilfe

Hi

Versteh ich so.

Code:
ActiveWorkbook.SaveAs "S:\_Vertraege_ET_WIL\Bestelldatei\" & ActiveSheet.Name & "HMüller", xlCSV, Local:=True

Oder

Code:
n = "HMüller"

ActiveWorkbook.SaveAs "S:\_Vertraege_ET_WIL\Bestelldatei\" & ActiveSheet.Name & n, xlCSV, Local:=True

Gruß Elex

deschroe

Elex