AW: Hilfe bei Worksheet_SelectionChange
13.01.2005 22:17:02
Peter
Erstmal vielen vielen Dank für die unglaublich schnelle Antwort! Riesenlob!
Leider ist das Problem noch nicht gelöst, wenn ich es so mache wie du vorgeschlagen hast, passiert leider überhaupt nichts wenn c12 aktiviert wird...
Das ganze soll ungefähr so aussehen:
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim s As Integer
s = Worksheets("Multiplikation").Range("m4").Value
If Worksheets("Multiplikation").Range("c6").Value <> "" Then Worksheets("Multiplikation").Range("b16").Value = ""
If target.Address(0, 0) = "c12" Then Run "Tabelle1.Lösung1"
If s < 3 Then GoTo 1
If s = 3 Then GoTo 2
If s = 4 Then GoTo 3
1:
If target.Address(0, 0) = "c7" Then Worksheets("Multiplikation").Range("c7").Activate
If target.Address(0, 0) = "c8" Then Worksheets("Multiplikation").Range("c10").Activate
If target.Address(0, 0) = "c12" Then Run "Tabelle1.Lösung1": Exit Sub
2:
If target.Address(0, 0) = "c7" Then Worksheets("Multiplikation").Range("c7").Activate
If target.Address(0, 0) = "c8" Then Worksheets("Multiplikation").Range("c8").Activate
If target.Address(0, 0) = "c9" Then Worksheets("Multiplikation").Range("c10").Activate
If target.Address(0, 0) = "c12" Then Run "Tabelle1.Lösung1": Exit Sub
3:
If target.Address(0, 0) = "c7" Then Worksheets("Multiplikation").Range("c7").Activate
If target.Address(0, 0) = "c8" Then Worksheets("Multiplikation").Range("c8").Activate
If target.Address(0, 0) = "c9" Then Worksheets("Multiplikation").Range("c9").Activate
If target.Address(0, 0) = "c10" Then Worksheets("Multiplikation").Range("c10").Activate
If target.Address(0, 0) = "c12" Then Run "Tabelle1.Lösung1": Exit Sub
End Sub
Das heißt das Programm soll bei verschiedenen Werten von s, andere Richtlinien für Ereignisse definieren. Ich bin Neuling in diesem Programm, also nicht auslachen wenn da was fürchterlich dummes dabei steht ;-)
Peter