habe ein Problem mit einer VBA Anweisung die folgendermaßen aussieht.
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.Calculation = xlManual
With AbStromersparnis1
If .Range("C3") = "Einspeisevergütung" And .Range("C5") = "Deutschland" Then
.Rows("7:83").Hidden = False
.Rows("84:85").Hidden = True
.Range("C84").ClearContents
Else
.Rows("7:83").Hidden = True
.Range("C78").ClearContents
.Range("C82").ClearContents
.Rows("84:85").Hidden = False
End If
End With
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
Ich will im Blatt eins über eine Länderauswahl in Blatt 2 (Abstromersparnis) eine Veränderung herbei führen. Die Länderauswahl wird zum einen abgefragt zum anderen im Blatt 2 mit einer wenn Funktion verknüpft. Durch diese wenn Funktion wird wenn Deutschland einigstellt wird im Feld C5 Einspeisevergütung erscheinen. Das Funktioniert wunderbar.
Nun soll aber über den oben gezeigten Code ein Automatismus hergestellt werden. d.h. wird dir Länderauswahl auf Deutschland gestellt sollen sich die Angegebenen Reihen aus bzw. einblenden.
Zusätzlich natürlich bei anderer Länderauswahl der umgekehrte Fall und das automatisch.
Leider Funktioniert der Code nicht automatisch erst wenn ich in Blatt 1 eine CommandButton betätigen funktioniert es. Das soll geändert werden.
Außerdem habe ich das Problem seit ich diesen Code generiert habe mit der Automatic und manuell Funktion. D.h. es stellt sich teilweise die manuell Funktion ein. Die ich über extras optionen usw. zurücksetzen muss auf automatic.
Bin für jede Antwort, Anregung oder Tipp dankbar.
Gruß Tobi