1.Mit dem Makro werden Werte in eine neue Datei kopiert, mitsamt der Zellenformatierung. Gibt's da eine Möglichkeit auch die Spaltenbreite anzugeben bzw. die Spaltenbreite der Ursprungsdaten zu übernehmen?
2. Kann man das Makro auch so abändern, dass man ein Tabellenblatt direkt benennt? Soll heißen, wenn die Datei noch nicht existiert wird sie ja angelegt, wenn sie schon existiert dann sollen die Werte in ein bestimmtes Tabellenblatt kopiert werden.
So wie das makro ist, würde ich ja eine Fehlermeldung erhalten, wenn ich nach und nach zwei Blätter mit Werten kopiere.
Vielen Dank für jede Hilfe
Harti
Sub CopyPunkteSpieltage()
Dim rngA As Range, rngB As Range
Dim sFile As String, sPath As String
sPath = ThisWorkbook.Path & "/punktestand_" & Date & ".xls"
Set rngA = ActiveSheet.Range("A1:AI105")
sFile = Dir(sPath)
If sFile = "" Then
Workbooks.Add
Else
Workbooks.Open sPath
End If
rngA.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sPath
Application.DisplayAlerts = True
End Sub