Tabelle mit Wert und Format kopieren
30.09.2003 12:53:24
Rudolf
Ich möchte aus einer bestehenden Exceldatei eine Tabelle in eine neue Exceldatei kopieren. Funktioniert mit unten angeführtem VBA sehr gut, aber ich will nur die Werte und das Format kopieren, bei meiner Variante wird alles mitkopiert.
Vielleicht kann mir von euch jemdand einen Tipp geben was ich vergessen habe.
Rudi
Sub Jahresenergiekosten()
Application.ScreenUpdating = False
sDatabaseName = ThisWorkbook.Path & "\" & "Jahresenergiekosten" & Date & ".xls"
ActiveSheet.Copy
Range("A1").Select
antwort = MsgBox("Die Liste wird unter " & sDatabaseName & "!" & " gespeichert!", vbQuestion + vbYesNo, "Soll die Liste gespeichert werden?")
If antwort = vbNo Then
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If
If antwort = vbYes Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=sDatabaseName
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
Range("A1").Select
Sheets("Jahresenergiekosten").Select
Range("A1:M1").Select
End Sub