Private Sub
19.12.2023 10:02:03
Sandra
ich hoffe Ihr könnt mir mal wieder helfen.
In meiner Arbeitsmappe habe ich eine Tabellenblatt mit dem Namen "Input". Hier habe ich zwei Private Sub verknüpft:
1) Private Sub Worksheet_Change(ByVal Target As Range)
2)Private Sub Worksheet_Calculate()
Für dieses Tabellenblatt funktioniert hier auch alles wunderbar.
Jetzt ist mir aufgefallen, dass bei der Bearbeitung eines zweiten Tabellenblattes "GH_MS_h" (hier läuft eine Berechnung übe eine Schleife ab) auf das "Private Sub Worksheet_Calculate()" zugegriffen wird, obwohl die in keiner Verbindung stehen.
Dies ist das Makro für die Schleife:
Sub Schleife()
Range("I26").Select
ActiveCell.FormulaR1C1 = 5
Range("I26").Select
Do Until [Q6] [I22]
[I26] = [I26] + 2
Loop
[I26] = [I26] - 2
Range("H16").Select
End Sub
Ich hab auch schon versucht, in dem Makro das Tabellenblatt "GH_MS_h" als Activesheet zu selektieren, aber dennoch wird das Private Sub von der Input-Seite angestoßen.
Weiß evtl. jemand wie das passiert?
Danke schonmal für eure Hilfe.
VG
Sandra