Tabelle mit Wert und Format kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Tabelle mit Wert und Format kopieren
von: Rudolf
Geschrieben am: 30.09.2003 12:53:24

Hallo, ich bitte um Hilfe
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

Bild


Betrifft: AW: Tabelle mit Wert und Format kopieren
von: Dan
Geschrieben am: 30.09.2003 15:13:24

Hallo Rudolf,

Option Explicit

' -----------------------------------------------------------------------
' wenn man alles kopieren will, reicht es die Methode Copy zu benutzen :
' Range("a1").Copy Range("b1") -- so kriegt man genau das selbe in die Zelle b1 was in der Zelle a1 steht
' wenn man nur ein Teil der Zelle kopieren will, muss man die PasteSpecial Methode benutzen
' -----------------------------------------------------------------------
Public

Sub CopyAndPasteSpecialTest()
    Range("a1").Copy
    Range("b1").PasteSpecial Paste:=xlPasteValues ' nur Werte in Zelle b1
    Range("c1").PasteSpecial Paste:=xlPasteFormats   ' nur Formate in Zelle c1
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabelle mit Wert und Format kopieren"