Clever-Excel-Forum

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

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

dertommy

Crazy Tom