Nur Werte Transponieren
02.07.2018 13:34:25
Heinz
Ich habe ein Makro das mir die Formel transponiert.
Möchte aber nur das die Formel als Werte transponiert wird.
Sub KopiereHinterLetzte()
Dim iRow As Long
Sheets("Eingabe").Range("E4:E6").Copy
With Sheets("Auswertung")
'letzte Zeile aus Spalte B (B=2) / +1, damit es nicht den letzten Eintrag überschreibt
iRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range("B" & iRow).Paste Transpose:=True 'xlPasteValues
'Formeln und Formate mitkopieren? Wenn nein, das "xlpastevalues" einkommentieren.
End With
End Sub
Danke, SG Heinz
Anzeige