das nachfolgende Makro gibt mir immer eine Fehlermeldung (Projekt oder Bibliothek nicht gefunden und der Bereich Text= wird blau unterlegt,wo warscheinlich der Fehler liegt.
Wo hab ich da den Wurm reingebracht und wie kann man das Lösen?
Gruß Werner
Private Sub Worksheet_Calculate()
If Range("B7") = Range("D11") Then
Text = "Soll die Erhöhung von" & Range("A11").Value & "Übernommen werden"
MsgBox Text, vbOK, "N A C H F R A G E"
Range("K11").Select
ActiveCell.FormulaR1C1 = "2"
Else
Range("K11").Select
ActiveCell.FormulaR1C1 = "0"
If Range("L11").Value 1 Then
Range("K11").Select
Selection.ClearContents
End If
End If
End Sub