Clever-Excel-Forum

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

Hallo,

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

Richtig verstanden?

Gruß
Marcs

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

(31.03.2020, 17:47)marose67 schrieb: [ -> ]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!!

Zitat:
(31.03.2020, 17:51)AlterDresdner schrieb: [ -> ]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

Instant_

marose67

AlterDresdner

Instant_