Pfadeingabe bei VBA Code
06.06.2020 08:35:06
chris58
Bitte kann mir irgendwer sagen, wo ich den Pfad eingeben muß, damit ich die kopierte Datei im selben Ordner habe, wie die Quelldatei ? (Pfad: C:\Users\gl\Desktop)
Danke für die Hilfe
Sub Makro5()
Dim strMappe As String
Dim strTabelle As String
strMappe = "Abrechnung"
strTabelle = "Mieterabrechnung"
Sheets(strTabelle).Copy
'Anmerkung: wenn beim Copy-Befehl kein Ziel angegeben wird, kopiert Excel das Sheet
'in eine neue Mappe und macht diese neue Mappe zum ActiveWorkbook
With ActiveSheet.UsedRange
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
ActiveWorkbook.SaveAs (strMappe)
ActiveWorkbook.Close
End Sub