Guten Tag zusammen,

bin so langsam am verzweifeln.

Ich lese aus einer Zelle einen Spalten Buchstaben aus und möchte das in einem anderem Sheet gesprungen wird und Zelle aktiviert wird.

Eigentlich ja ein simpler Befehl. Nur es funkioniert nich.

Den Befehl habe ich in das Objekt des Sheets geschrieben.

Abruch kommt immer bei dem Befehl: Range(Zelle & "3").Select

Vielleicht findet jemand was ich falsch mache und möchte mich für Antworten schon jetzt bedanken.

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Zelle As String

If Not Intersect(Target, Range("B3:B500")) Is Nothing Then


Zelle = ActiveCell.Value
Sheets("Report").Select

Range(Zelle & "3").Select
End If
End Sub