Herbers Excel-Forum - das Archiv

Tabelle mit Wert und Format kopieren

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
Excel-Beispiele zum Thema " Tabelle mit Wert und Format kopieren"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum