Wir bekommen es schon gebacken ;-)
Tino
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sName As String
Dim A As Long
Dim loLetzte As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
For A = 1 To Target.Count
If IsNumeric(Target(A)) And Len(Target(A)) < 4 Then
If Not Intersect(Target(A), Range("C1:C15")) Is Nothing Then
If IsNumeric(Target(A)) And Target(A) <> "" Then
sName = "PRG_Datei_" & Format(Target(A), "00")
ActiveSheet.Hyperlinks.Add Target(A).Offset(0, -1), "", "'" & sName & "'!A1"
Target(A).Offset(0, -1).Hyperlinks(1).TextToDisplay = sName
Target(A).Offset(0, 1).Formula = "=INDIRECT(""'" & sName & "'!A1"")" 'Formel"
Target(A).Offset(0, 2).Formula = "=INDIRECT(""'" & sName & "'!A2"")" 'Formel"
ElseIf IsNumeric(Cells(Target(A).Row, Columns.Count)) And Len(Target(A)) < 4 Then
Target(A).Offset(0, -1).Hyperlinks.Delete
Range(Target(A).Offset(0, -1), Target(A).Offset(0, 2)).ClearContents
End If
Range(Target(A).Offset(0, -1), Target(A).Offset(0, 2)).HorizontalAlignment = xlCenter
End If
End If
Cells(Target(A).Row, Columns.Count) = Target(A)
Next A
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub