Bereich Formeln entfernen und Ergebnis behalten
25.03.2019 15:28:53
Benni
ich möchte gerne Bereiche, die mit Formeln befüllt wurden, umwandeln, sodass nur noch das Formelergebnis in der Zelle bleibt ohne den Formelbezug.
Es gibt in dem Worksheet zwei Bereiche, in denen ich dies tun möchte, ein kleiner und fest definierter Bereich und ein sehr großer, variabler Bereich.
Beim kleinen Bereich funktioniert das bisher schon super mit folgendem Code:
Public Sub klein()
ziel_ws.Range("C4:C7").Copy
ziel_ws.Range("C4:C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False
End Sub
Beim großen, variablen Bereich müsste es meiner Ansicht nach dann gleichermaßen so funktionieren, es wird jedoch immmer ein Laufwerkfehler angezeigt:
Public Sub gross()
ziel_lastcol = ziel_ws.Cells(10, Columns.Count).End(xlToLeft).Columns
ziel_lastrow = ziel_ws.Cells(Rows.Count, 1).End(xlUp).Row
col_formel_rge_start_txt = Split(Cells(1, col_formel_rge_start).Address, "$")(1)
ziel_lastcol_txt = Split(Cells(1, ziel_lastcol).Address, "$")(1)
Let copy_rge = col_formel_rge_start_txt & 11 & ":" & ziel_lastcol_txt & ziel_lastrow
Let paste_rge = col_formel_rge_start_txt & 11 & ":" & col_formel_rge_start_txt & 11
ziel_ws.Range(copy_rge).Copy
ziel_ws.Range(paste_rge).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False
End Sub
Es wäre klasse, wenn mir jemand meinen Fehler zeigen kann!
Danke im Voraus
Grüße
Benni