Blattname automatisch als link
16.05.2007 09:21:00
Mark
Ich hab mal wieder ein für mich sehr anspruchvolles Problem:
Mit folgendem Makro erzeuge ich mir eine Kopie meines Tabellenblattes 2 und füge diese automatisch hinten in der Mappe ein. Tabellenblatt 1 ist die Übersicht über den gesamten Inhalt der Mappe, die sich automatisch generiert:
Sub BlattdatenAktualisieren(BlattName As String, Zeile1 As Integer)
'Daten aus den anderen Tabellenblättern werden als Liste im Blatt eingetragen
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim Zeile As Long, Spalte As Integer
Set wksZiel = ThisWorkbook.Worksheets(BlattName)
Application.ScreenUpdating = False
With wksZiel
'Alte Daten in der Liste löschen
If .Cells.SpecialCells(xlCellTypeLastCell).Row >= Zeile1 Then
.Range(.Cells(Zeile1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).ClearContents
End If
'Tabellenblätter auslesen
Zeile = Zeile1
For Each wksQuelle In ThisWorkbook.Worksheets
If wksQuelle.Name wksZiel.Name Then
'Werte aus den Zellen übertragen
.Cells(Zeile, 1).Value = wksQuelle.Range("E4").Value 'Name des Tabellenblattes
.Cells(Zeile, 2).Value = wksQuelle.Range("E5").Value 'Info 1
.Cells(Zeile, 3).Value = wksQuelle.Range("E6").Value 'Info 2
.Cells(Zeile, 4).Value = wksQuelle.Range("I33").Value 'Info 3
.Cells(Zeile, 7).Value = wksQuelle.Range("M11").Value 'Info 4
.Cells(Zeile, 8).Value = wksQuelle.Range("Q20").Value 'Info 5
Zeile = Zeile + 1
End If
Next wksQuelle
'Datensortieren nach Spalte 1 und 2
.Range(.Cells(Zeile1, 1), .Cells.SpecialCells(xlCellTypeLastCell)).Sort _
Key1:=.Cells(Zeile1, 1), Order1:=xlAscending, Key2:=.Cells(Zeile1, 2), _
Order2:=xlAscending, Header:=xlNo
End With
Application.ScreenUpdating = True
End Sub
In Zeile 1 wird nun automatisch der Wert aus der Zelle E4 des neu angelegten Blattes eingetragen, das ist automatisch der neue Tabellenblattname (ein Makro regelt das in dem neu angelegten Blatt).
Nun mein Problem:
Ich wünsche mir ganz doll, dass der Wert, der aus Zelle E4 ausgelesen wird immer automatisch ein Link zu dem neu angelegten Blatt ist. Die Schwierigkeit liegt hier wohl darin, dass die Übersichtsliste (Tabellenblatt1) nicht statisch ist und sich immer wieder, mit jedem neu angelegten Tabellenblatt, verändert.
Hat da jemand eine Idee?
Im Voraus bereits vielen Dank an alle die sich diesen Riesentext durchgelesen haben und dann auch eventuell auch noch eine Lösung bereit haben!
MfG
Mark