Bei Klick in einem Bereich zu Zelle B1 springen

[Instant_]

Hallo liebe Leute,

ich verzweifle hier noch....

Ich habe es so programmiert, dass bei einem Klick irgendwo hin im Excelsheet die Auswahl auf B1 zurückspringt.

Wie schaffe ich es, dass er nur zurückspringt, wenn der Klick im Bereich A3:C15 erfolgt?

Das ist mein Code bisher:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim a As Integer
For a = 3 To 150

  If Target.Address = Cells(a, 1).Address Then Cells(a, 4) = Cells(a, 4) + 1
  Application.Goto Sheets("Troubleshooting-Tel").[B1]
 
Next a

Dim c As Integer
For c = 3 To 150

  If Target.Address = Cells(c, 3).Address Then Cells(c, 5) = Cells(c, 5) + 1
  Application.Goto Sheets("Troubleshooting-Tel").[B1]
 
Next c

End Sub

Am besten wäre es, wenn die Auswahl auf B1 nur dann erfolgt wenn im Bereich A3:A15 und C3:C15 geklickt wird. 

Habe schon einiges durchprobiert, nichts hat so richtig funktioniert...ich glaub es ist ganz einfach aber ja....

Danke und liebe Grüße

[marose67]

Hallo,

Application.Goto Reference:=Range("B1"), Scroll:=True

Richtig verstanden?

Gruß
Marcs

[AlterDresdner]

Hallo,

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Bereich A3:A15 und C3:C15
  If Target.Row <= 15 And Target.Row >= 3 And (Target.Column = 1 Or Target.Column = 3) Then
     Application.Goto Sheets("Troubleshooting-Tel").[B1]
  End If
End Sub

[Instant_]

Hallo,

Application.Goto Reference:=Range("B1"), Scroll:=True

Richtig verstanden?

Gruß
Marcs

Habe das jetzt nicht probiert, aber was macht das Scroll genau? Wie erkennt er dass er nur bei Spalte A und C springen soll? Danke!!

Hallo,

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Bereich A3:A15 und C3:C15
  If Target.Row <= 15 And Target.Row >= 3 And (Target.Column = 1 Or Target.Column = 3) Then
     Application.Goto Sheets("Troubleshooting-Tel").[B1]
  End If
End Sub

Hab das probiert und hat super funktioniert. Vielen Dank!

LG