Das ist zum Teil möglich...
17.03.2015 16:15:15
Michael
Matthias,
...aber fast schon einen neuen Beitrag wert - Deine erste Frage wurde ja eigentlich beantwortet. Dennoch: Ich hab Dir mein Makro von oben angepasst, sodass Du nun zu Beginn eine Abfrage erhältst ob Du
- Nur die Werte ODER
- die Werte und Formatierungen
der Ursprungstabelle kopieren/übertragen möchtest. Ich bin mir allerdings nicht sicher, ob das unter Excel 2007 schon so klappt (habe 2010).
Bilder lassen sich so nicht mitübertragen, die kannst Du nur mitnehmen, wenn Du ALLES kopierst und einfügst - nur Zellwerte und Bilder geht so leider nicht. Es ist grds. denkbar die Bilder in einem weiteren Schritt einzeln durchzugehen, das ist mir aber zu aufwändig und ohne Kenntnis Deines konkreten Tabellenumfangs greife ich das nicht an.
Sub WerteAusAktTabelleInNeueTabelle()
Dim Tab1 As Worksheet
Dim Tab2 As Worksheet
Dim KopModus As Variant
KopModus = InputBox("Wie soll das aktuelle Blatt kopiert werden?" & vbCrLf & vbCrLf _
& "1... Nur Werte 2... Werte und Formate", "Aktuelles Blatt kopieren")
Set Tab1 = ActiveSheet
Select Case KopModus
Case Is = 1
Tab1.UsedRange.Copy
Set Tab2 = Worksheets.Add(After:=Tab1)
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Tab2.Name = Tab1.Name & "_" & "ohne_Funkt"
Tab1.Activate
Application.CutCopyMode = False
Case Is = 2
Tab1.UsedRange.Copy
Set Tab2 = Worksheets.Add(After:=Tab1)
With ActiveSheet.Range("A1")
.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Tab2.Name = Tab1.Name & "_" & "Kopie_mit_Format"
Tab1.Activate
Application.CutCopyMode = False
Case Else
MsgBox "Falsche Eingabe oder ""Abbruch"" "
Tab1.Activate
Application.CutCopyMode = False
Exit Sub
End Select
End Sub
Lg
Michael