Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formel durch Wert ersetzen

Formel durch Wert ersetzen
21.01.2020 11:12:20
Mike
Hallo, gibt es einen Code der die Formel in einer Zelle durch den Wert ersetzt sobald man die Zelle berührt.
Egal wie es ist Danke für eure Hilfe.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel durch Wert ersetzen
21.01.2020 11:23:52
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- rechts dann das hier reinkopieren
Den Bereich kannst du abändern
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Fehler
    Const APPNAME = "Worksheet_SelectionChange"
    
    Dim RNG As Range
    
    'Bereich festlegen, wo das geschehen soll 
    Set RNG = Range("A1:C20")
    
    If Not Intersect(RNG, Target) Is Nothing Then
        Target.Value = Target.Value
    End If
    
    
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub


LG UweD
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige