Microsoft Excel

Herbers Excel/VBA-Archiv

Eingabe oder Formelwert in Zelle

Betrifft: Eingabe oder Formelwert in Zelle von: Norbert
Geschrieben am: 31.03.2020 12:05:09

Hallo VBA Cracks
ich habe 3 Zellen C6 - D6 und E6 in denen ich eine Formel resp. ein konstanter Wert hinterlegt habe. Nun soll es eine Möglichkeit geben (VBA Code) in diese Zellen einen Wert direkt einzugeben und wenn diese Werte wieder gelöscht werden, dann automatisch wieder die Formeln eingetragen sind.
in C6 soll die Formel =D8-2 stehen
in D6 soll die Formel =E8-1 stehen
in E6 soll der Bezug zu =D2 sein.
Der Code soll direkt in der Arbeitsmappe integriert sein - nicht über ein Modul
Besten Dank für eine Lösung
Gruss Norbert

Betrifft: AW: Eingabe oder Formelwert in Zelle
von: Hajo_Zi
Geschrieben am: 31.03.2020 12:34:19

Hallo Norbert,

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    'in C6 soll die Formel =D8-2 stehen
    'in D6 soll die Formel =E8-1 stehen
    'in E6 soll der Bezug zu =D2 sein.
    If CallByName(Selection, IIf(Val( _
        Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
        If Target = "" Then
            Select Case Target.Address
                Case "$C$6"
                    Target.Formula = "=D8-2"
                Case "$D$6"
                    Target.Formula = "=E8-1"
                Case "$E$6"
                    Target.Formula = "=D2"
            End Select
        End If
    End If
End Sub
GrußformelHomepage

Betrifft: AW: Eingabe oder Formelwert in Zelle
von: Norbert
Geschrieben am: 31.03.2020 13:07:53

Hallo Hajo
auf dich ist verlass :)
besten Dank
Gruss Norbert

Beiträge aus dem Excel-Forum zum Thema "Eingabe oder Formelwert in Zelle"