mit nachfolgendem Code würde ich gerne erreichen, dass aus einer Mappe ein bestimmtes Tabellenblatt "Daten" auf Schaltflächendruck a.d. Desktop kopiert wird. Außer Zeile 1 (Überschriften) sollten in allen anderen Zeilen die Inhalte -nicht Format und Pulldowns, Zeilenumbrüche etc.- gelöscht werden (in der Kopie, nicht im Original). Wie müßte ich den Code umstellen, das zu erreichen und auch die Kopie als xlsx abgespeichert zu bekommen ? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub Melden()
Dim wb As Workbook, wbneu As Workbook
Dim sPfadNeu As String
Set wb = ThisWorkbook
sPfadNeu = VBA.Environ("Userprofile") & "\Desktop\" 'ggf. Anpassen
' sPfadNeu = "C:\Dokumente und Einstellungen\"& VBA.Environ("Username") & "\Desktop\" 'ggf. _
Anpassen
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Daten").Copy
Set wbneu = ActiveWorkbook
wb.Activate
Application.DisplayAlerts = False
With wbneu
.SaveAs Filename:=sPfadNeu & "Finder " & Format(Now, "YYYY-MM-DD") & ".xls", _
FileFormat:=xlNormal, _
CreateBackup:=False, AddToMRU:=True 'wofür ist das gut?
'wie kann ich hier die Inhalte ab A2 löschen, aber nicht Formate?
.Save
.Close savechanges:=False
MsgBox "Eine Kopie der Datei wurde auf dem Desktop gespeichert!", vbInformation
End With
Application.ScreenUpdating = True
End Sub