Makro und Verknüpfungen auf anderen Blättern
03.10.2016 22:01:57
ExcelPadawan
Zur Verwaltung von monatlichen Aktivitäten von 200 freiwilligen Helfern erstelle ich gerade eine Excel Mappe.
Ich habe eine Master Tabelle mit 200 Zeilen die Daten an zwölf Monatsblätter übergibt.
Nun will ich per Makro 200 Helferblätter erstellen, die jeweils Verknüpfungen und Hyperlinks sowohl zur jeweiligen Zeile in der Mastertabelle als auch zu den jeweiligen Zeilen der einzelnen Monatstabellen herstellen.
Ich habe hierfür ein erstes Helferblatt mit allen Verknüpfungen und Hyperlinks erstellt, dass ich durch ein Makro kopieren und die entsprechenden Verknüpfungen und Hyperlinks aktualisieren lassen möchte, indem ich sie eigentlich nur eine Zeile im jeweiligen Blatt weiterspringen lasse - soweit der Plan.
Eine Schleife zum Erstellen der 200 Helferblätter inclusive fortlaufender Nummerierung habe ich schon.
Zum anpassen der Verknüpfungen und Hyperlinks habe ich diesen Code:
Sub AdjustLinks()
' AdjustLinks Makro
Range("A1").Select
Selection.Hyperlinks(1).SubAddress = "VERS!A15"
Range("A11").Select
Selection.Hyperlinks(1).SubAddress = "Sep!A15"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=VERS!R[8]C"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=VERS!R[8]C"
End Sub
Wie bekomme ich jetzt die Werte der Hyperlinks und der Verknüpfungen eine Zeile weiter (also z.B. "Sep!A15" auf Sep!A16" bzw. "=VERS!R[8]C" auf "=VERS!R[9]C") ?
Wäre superklasse wenn mir jemand hier einen heißen Tip geben könnte...
Vielen Dank!!!