Hallo Erich G.
01.08.2008 18:15:00
Peter
ich bin fast am Verzweifeln, vielleicht kannst du mir noch mal helfen.
Beigefügter Code hat schon funktioniert:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim calS As XlCalculationState
If Not Intersect(Target, Range("e22")) Is Nothing Then
calS = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.Run "GehtPKS"
Application.Calculation = calS
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("b25")) Is Nothing Then
calS = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.Run "GewählterText"
Application.Calculation = calS
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("d21")) Is Nothing Then
calS = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.Run "FesteDichteFürLiterPreis"
Application.Calculation = calS
Application.EnableEvents = True
End If
If Not Intersect(Target, Range("d22")) Is Nothing Then
calS = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.Run "GewählteDichte"
Application.Calculation = calS
Application.EnableEvents = True
End If
End Sub
Dann habe ich das Sheet gespeichert. Nach dem erneuten Aufrufen funktioniert jetzt nur noch die 2. Hälfte des Codes, also die mit Range ("D21") und Range("D22"). Die mit ("e22") und Range("b25") werden einfach nicht ausgeführt!
Manuell gestartet fuktionieren aber "GewählterText" und "GehtPKS" durchaus!
Was mache ich bloß falsch ?
Gruß,
Peter