Aufgezeichnetes Makro ergänzen
26.10.2016 09:39:35
Benedikt
ich habe mir ein Makro aufgezeichnet und möchte, dass dieses noch ein paar Dinge mehr kann. Bis jetzt erstellt es eine Kopie des offenen Worksheets, allerdings nur mit den Werten (ohne Formeln), dann eine Kopie davon transponiert.
Bei der ersten Kopie öffnen sich für jede Formel, bei der der Dateipfad nicht hintelegt ist ein "Warnfenster", diese möchte ich unterdrücken
?DisplayAlerts = false?
Zusätzlich möchte ich, dass das 1. neue Tabellenblatt = "value" heißt und das 2. = "transposed"
Ich weiß nicht an welcher Stelle des Makros da was eingefügt werden muss.
Sub markieren_wertekopie_transpoiniert()
' markieren_wertekopie_transpoiniert Makro
' Tastenkombination: Strg+m
Rows("1:275").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Sheets.Add After:=ActiveSheet
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
Danke schon mal für eure Hilfe
Grüße
Bene