Sub neuesTabellenblatt()
Dim z, Na, ok
With Worksheets("Eingabe")
For z = 7 To 100
ok = True
Na = .Cells(z, 4)
If Na "" Then
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = Na Then
ok = False
End If
Next
If ok Then
Worksheets("Vorlage").Copy After:=Worksheets("Eingabe")
ActiveSheet.Name = Na
Range("b2") = .Cells(z, 2)
Range("b3") = .Cells(z, 5)
Range("d2") = .Cells(z, 4)
Range("b4") = .Cells(z, 6)
Exit For
End If
Else
Exit Sub
End If
Next z
End With
End Sub
ich habe dazu das gefunden.Hyperlinks.Add Anchor:=.Range("a5"),
nur weiß ich jetzt nicht was ich als Range angeben muss damit das funzt.