Namen der Mappe vorbestimmen
09.09.2020 12:06:50
Wolfgang
den nachfolgenden Code konnte ich hier im Forum recherchieren. Er legt eine neue Mappe an und kopiert aus einer anderen Mappe die markierten Zeilen ein. Das funktioniert auch soweit. Wie könnte der Code geändert werden, dass a) immer die Zeile 1 der Herkunftsmappe mit den markierten Zeilen zusammen kopiert wird und b) kann eine Eingabemaske zwischengeschaltet werden, in der bereits der Name der neuen Mappe vorbestimmt wird? - Vielen Dank schon jetzt für die Rückmeldung und herzliche Grüße - Wolfgang
Sub CopyAndSave()
Dim strFileName As String
Dim wkb, wkbNew As Workbook
' Zeiger auf dieses Workbook setzen
' Set wkbNew = Application.Workbooks.Add(1)
' Bezug auf den markierten Bereich
With Selection
' Namen der Datei auslesen (inkl. Pfad ?)
strFileName = .Cells(1, 1).Value
' Markierten Bereich kopieren
.Copy
End With
' neue Arbeitsmappe anlegen
Set wkbNew = Application.Workbooks.Add
' kopierte Daten einfügen
wkbNew.Sheets(1).Paste Destination:=wkbNew.Sheets(1).Range("$A$1")
' Datei unter neuem Namen sichern ...
wkbNew.SaveAs strFileName
' ... und schließen
' wkbNew.Close
End Sub