If Not Application.Intersect(Target, Cells(6, 1)) Is Nothing Then
For Each ws In ActiveWorkbook.Sheets
If ws.Range("B3") = Sheets("Fertigstellungsgrad").Range("A6") Then
ws.Select
Exit For
End If
Next ws
End If
If Not Application.Intersect(Target, Cells(7, 1)) Is Nothing Then
For Each ws In ActiveWorkbook.Sheets
If ws.Range("B3") = Sheets("Fertigstellungsgrad").Range("A7") Then
ws.Select
Exit For
End If
Next ws
End If
If Not Application.Intersect(Target, Cells(8, 1)) Is Nothing Then
For Each ws In ActiveWorkbook.Sheets
If ws.Range("B3") = Sheets("Fertigstellungsgrad").Range("A8") Then
ws.Select
Exit For
End If
Next ws
End If
.
.
.
-->Das für jede Spalte!