Wert aus bestimmter Zelle in Messagebox ausgeben

[dertommy]

Hallo!

Ich habe folgendes Problem. Ich möchte, dass wenn ich in der Spalte F etwas eingebe, dass mir dann in einer Messagebox der Wert aus der Zelle A ausgegeben wird. Z.B. gebe ich in Spalte F2 etwas ein, soll mir dann der Wert aus der Spalte A2 ausgegeben werden.
Momentan ist es in meinem Code so, dass wenn ich in Spalte F2 etwas eingebe, dass mir zuerst der Wert aus A1 und dann aus A2 ausgegeben wird, was ich nicht will.
Ich hoffe, dass mir jemand helfen kann. Als Beispiel habe ich die Datei mit angehängt.

Anbei mein Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range) 'Wenn etwas geändert wird

Dim bereich As Range
Dim zelle As Range
Dim lzeile As Long

lzeile = Sheets("Tabelle1").UsedRange.Rows.Count
Set bereich = Sheets("Tabelle1").Range(Cells(1, 6), Cells(lzeile, 6))
For Each zelle In bereich

If Target.Column = 6 Then
         
         MsgBox zelle.Offset(0, -5).Value
     End If

Next

End Sub

LG

[Crazy Tom]

Hallo

das geht in meinem Test so

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Columns(6)) Is Nothing Then
       MsgBox Target.Offset(0, -5).Value
   End If
End Sub

MfG Tom