VBA PROFIS gefragt wenn ich unter Sheets Bereiche anwählen möchte in einem Makro

[kingkong]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
  With Target
   
    If Not Intersect(Target, Range("D7")) Is Nothing Then

        Cancel = True
            Sheets("Tage1").Select
                 
    End If
   
  End With
 
  With Target
           
    If Not Intersect(Target, Range("D8")) Is Nothing Then
       
        Cancel = True
            Sheets("Tage1").Select
               
    End If
 
  End With

End Sub



Dies ist mein gebasteltetes Makro, Dank Euch 

funktioniert auch, jedoch würde ich gerne bei D7 die Zelle A3 auswählen,
und bei D8 dann A32. In dem Sheet Tage 1.

Vielen Dank euch wieder !!!

[Fuzzy62]

Moin,

versuch es mal damit!

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If Not Intersect(Target, Range("D7")) Is Nothing Then
            Cancel = True
            Sheets("Tage1").Range("A7").Select
        End If
    End With

    With Target
        If Not Intersect(Target, Range("D8")) Is Nothing Then
            Cancel = True
           Sheets("Tage1").Range("A8").Select
        End If
    End With
End Sub

[schauan]

Hallöchen,

versuchs mal lieber nicht so.

Bei einem Blattwechsel auf diese Art musst Du in zwei Schritten vorgehen.
Sheets("anderes Blatt").Range("A1").Select

geht nicht, stattdessen aber

Sheets("anderes Blatt").Select
Range("A1").Select

Alternativ könntest Du das nehmen:

Application.Goto Reference:=Worksheets("Tabelle2").Range("A1")

[Fuzzy62]

Hallo Andre,

ich bin davon ausgegangen das er auf dem selben Tabellenblatt bleit!

Dann funktioniert es, sonst erscheint ein Fehler!

[schauan]

Hallo Klaus,

ok,

mal allgemein:
Dann reicht aber auch Range ...Select Wobei sich mir bei Sheets(xx).Range(yy).Select auch ohne Blattwechsel trotzdem die Nackenhaare aufstellen Das könnte zu mehr Fragen / Posts führen in der Art "Hab ich im Forum gefunden, funktioniert aber nicht ..."

[kingkong]

Danke Euch beiden funktioniert ! 

MfG

[RPP63]

Moin!
Wozu gibt es Hyperlinks?

[schauan]

Hallöchen,

Wozu gibt es Hyperlinks?

das ist jetzt zwar nicht die Antwort auf die Frage, aber die funktionieren eher nicht erst bei Doppelklick