Worksheet Calculate geht nicht mehr
27.03.2020 09:34:59
Heinz
Ich hatte eine Problem mit Worksheet Change: GerdL hatte mit dann einen Code gemacht, welcher einwandfrei funktionierte:
Private Sub Worksheet_Calculate()
Dim lngCalc As Long
lngCalc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Select Case Range("W4").Value
Case 21
Worksheets("Organyc").Columns("K:L").Hidden = True
Case Else
Worksheets("Organyc").Columns("K:L").Hidden = False
End Select
Application.Calculation = lngCalc
Application.EnableEvents = True
End Sub
Der Code ist im Blatt Orders, das Blatt Organyc ist vorhanden, Aber es geschieht nichts mehr! Der einzige Unterschied welchen ich erkennen kann, ist, dass es ein anderer Rechner ist. Aber Kalkulation ist auf Automatisch, F9 hilft auch nicht.
Zur Erlärung: In Zelle W4 des Blattes "Orders" ist ein Wert, welcher durch ein Kombi Auswahlfeld definiert wird. Wenn der Wert 21 ist, sollen die Spalten K und L auf dem Blatt "Organyc" verdeckt werden, sonst auf gedeckt. Hat alles funktioneirt > sieh alteh Thread vom 20.3.
Irgendeine Idee, wo der Hund begraben sein könnte?
Vielen Dank und Grüsse aus Prag Ghost Town