Hallo,

ich habe eine Datei mit verschiedenen Arbeitsblättern. Durch ein Makro kann immer ein neues Tabellenblatt (Projektnachtrag) hinzugefügt werden. Auf dem neuen Blatt wir eine Projektnummer eingetragen und diese wird ebenfalls durch ein Makro gespeichert und auf das Übersichtsblatt kopiert. Bei jedem neuen Blatt wird die Projektnummer auf dem Überichtsblatt eine Zeile tiefer in der Gleichen Splate geschrieben.

Durch eine Klicken auf eine beliebige Projektnummer auf dem Übersichtsblatt wird man auf das entsprechenede Tabellenblatt verlinkt. Hierzu habe ich volgenden Code:

'A6
    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
    
    'A7
    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
    
    'A8
    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!

Dieser Funktioniert auch in jeder Zelle außer in der ersten (A6). Kann mir da vielleicht jemand sagen, wieso es bei der ersten Zeile nicht funktioniert!

Ich würde auch die Datei mit anhängen, aber ich weiß nicht wo...-.-

Vielen Dank schon mal im voraus!

Daniel