Office: (Office 2019) VBA Code ohne ergebnis

Hallo, ich habe einen VBA Code der in meiner Tabelle nicht funktioniert. Kann mir vielleicht jemand bei der Korrektur ggf. weiter helfen? Danke und Gruß

Code:

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("D19")) Is Nothing Then
        If Me.Range("D19").Formula <> "=SUM(C18-C19)" Then
            Application.EnableEvents = True  '  False ' Deaktivieren der Ereignisse, um Endlosschleifen zu vermeiden
        Me.Range("D19").Formula = "=SUM(C18-C19)"
    Application.EnableEvents = True ' Ereignisse wieder aktivieren
    End If
 End If
End Sub

 

Hallo,

noch ein Bastler. Funktioniert nicht, ist keine besonders gute Problembeschreibung. Was funktioniert denn, deiner Ansicht nach, nicht?

 

Hallo Bastler,

um es zu präzisieren: dein Quelltext bewirkt, dass in Zelle D19 die Formel =SUMME(C18-C19) eingetragen wird, wenn man dort etwas hineinschreibt, dass von dieser Formel abweicht. Davon mal abgesehen, enthält der Quelltext ein paar Dinge, die überflüssig, bzw. falsch sind.

 

Sorry, ich war gerade eilig unterwegs.
Hallo, ich möchte in die Zelle D19 das Ergebnis aus der Formel "=SUM(C18-C19)" beim Ändern der Werte ausrechnen und in D19 eintragen lassen.

 

Hallo Bastler,

dann reicht das so:

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C18:C19")) Is Nothing Then Range("D19") = Range("C18") - Range("C19")
End Sub

 

Danke Klaus-Dieter, aber der VBA Codevorschlag bringt kein Ergebnis. Warum das so ist, kann ich nicht erklären.
Eine andere Celle, die mit anderen Zellbezügen rechnet, funktioniert, was mich ratlos macht. Die Formel wird nicht in Zelle D19 geschrieben. Gruß

 

Hallo Bastler,

das Makro ist so angelegt, dass das Ergebnis in die Zelle geschrieben wird, da VBA auch prima rechnen kann, ist es kontraproduktiv, damit eine Formel in ein Tabellenblatt einzutragen. Wobei mir klar ist, dass es Leute gibt, die das anders sehen, insofern meine ganz persönliche Meinung.

 

Sorry, aber der Code funktioniert bei mir zumindest nicht. Es wird kein Wert in die Zelle D19 geschrieben. Gruß

 

Hallo Bastler,

in welches Modul hast du das Makro geschrieben?

 

Das Macro ist in Tabelle4 "hinterlegt". Ich möchte nochmal verdeutlichen, eine andere Aufgabe in der gleichen Tabelle wird korrekt ausgeführt, das ist komisch! Es sind nur andere Zellen angesprochen.

 

Hallo Bastler,

anbei die Beispieldatei.

 

Hallo, habe gesehen das der Code funktioniert. Zum Verständnis hänge ich meinen Code einmal an. Das rumgebastele ignorieren.

 

Hallo Basler,

mein Quelltext sollte deinen ersetzen, nicht ergänzen!

 

Hallo Bastler,


die Zellbezüge solltest du auch anpassen:
If Not Intersect(Target, Range("C13:C14")) Is Nothing Then Range("D14") = Range("C13") - Range("C14")

 

Hallo, ich habe die Codes so weit in Funktion das sie einzeln gestartet ihre Aufgabe erfüllen.
Nun versuche ich mit Call ..... die Codes hintereinander zu aktivieren, was mir aber leider nicht gelingt.

Ich hänge meinen Code mal hier an, damit man den Fehler vielleicht berichtigen kann. Danke und Gruß

Code:

 ' Ermittlung der Mietdauer im Jahr
 Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Me.Range("D3:D4")) Is Nothing Then
        If Me.Range("E4").Formula <> "=DATEDIF(D3,D4+1,""M"")" Then
        Me.Range("E4").Formula = "=DATEDIF(D3,D4+1,""M"")"
    End If
 End If

' Call FormelnSchreiben1
' Call FormelnSchreiben2

End Sub

Public Sub FormelnSchreiben1()
 Dim oBlatt As Worksheet
 Set oBlatt = ThisWorkbook.Worksheets("Tabelle4") 'Tabellennamen gg. anpassen
 With oBlatt
  .Range("D18").FormulaLocal = "=Summe(C18-C17)"
 End With
 Set oBlatt = Nothing
 
 End Sub
 
 Public Sub FormelnSchreiben2()
 Dim oBlatt As Worksheet
 Set oBlatt = ThisWorkbook.Worksheets("Tabelle4") 'Tabellennamen gg. anpassen
 With oBlatt
  .Range("D14").FormulaLocal = "=Summe(C14-C13)"
 End With
 Set oBlatt = Nothing
 
End Sub