$ $ beim Runterziehen zählen

[MisterBurns]

Bin noch bei 16.0.16130.20374
Danke

[Robottino]

habe Office 2016 bei der Arbeit, da geht es sicher nicht :(

[RPP63]

Ich hatte in der "Vor-Strg+Umschalt+V-Zeit" ein Makro in meiner Personal.xlsb und diesem den Shortcut Strg+Umschalt+W (wie Wert) zugewiesen.
Hat auch heute noch seine Berechtigung, weil es auch Spill-Formeln und vor allem unzusammenhängende Bereiche bearbeiten kann.

Sub FormelInWert()
'Shortcut Strg+Umschalt+W 
Dim x As Range
If TypeName(Selection) = "Range" Then
  With Application
    .ScreenUpdating = False
    For Each x In .Selection.Areas
        If x.HasSpill Then
          With x.SpillParent.SpillingToRange
            .Copy: .PasteSpecial xlPasteValues
          End With
        Else
          x.Copy: x.PasteSpecial xlPasteValues
        End If
    Next
    .CutCopyMode = False
    .Goto ActiveCell
  End With
End If
End Sub

Könnte man für ältere Versionen "zurück entwickeln".

---

Hier "für alt":

Code:

Sub FormelInWert_alt()
Dim x As Range
If TypeName(Selection) = "Range" Then
  With Application
     .ScreenUpdating = False
     For Each x In .Selection.Areas
      x.Copy: x.PasteSpecial xlPasteValues
     Next
     .CutCopyMode = False
     .Goto ActiveCell
  End With
End If
End Sub

[derHoepp]

Moin,

Es funktioniert auch Strg+Alt+V W Enter

[RPP63]

Ja, aber ebenfalls nicht bei Mehrfachauswahl.
Gerade, wenn ein Threadersteller mal wieder zu faul war vergessen hat, eine Beispieldatei einzustellen, kommt das Makro in der Personal.xlsb bei mir häufig zum Einsatz.

[Robottino]

weis nicht ob es verständlich ist....



  Formel.xlsx (Größe: 11,41 KB / Downloads: 7)