Ich hab ne Liste, daraus ergibt sich per Makro die Tabllennamen
Sub tabneu()
Dim i, z As Double
ActiveSheet.Range("A2:A2").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z
Sheets(2).Select
Sheets.Add
ActiveSheet.Name = Sheets(1).Cells(z, 1).Value
z = z - 1
Next i
End Sub
Jetzt hätte ich nur gerne das auf jeder dieser Tabellen ein Button mit einer Makro verknüpfung.
Geht das?
2. Problem
Ich habe eine Eingabe-Tabelle, wo alle Namen nochmal aufgeführt sind. Kann ich per Makro auf die Namen ein Hyperlink setzen die automatisch auf die entsprechnenden Tabellen weisen?
Ich hoffe, vielen Dank schonmal
Gruß Philipp