VBA Bestellblatt Namen zuweisen

[deschroe]

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

[Elex]

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