01.04.2021, 15:23
Schönen Tag zusammen,
Mit dem nachfolgenden Code
Private Sub Worksheet_Activate()
Dim Erow As Long, ECol As Long, WKSName As String
Erow = Range("a1").CurrentRegion.Rows.Count
ECol = Range("a1").CurrentRegion.Columns.Count
WKSName = ActiveSheet.Name
ActiveWorkbook.Names.Add Name:=WKSName, RefersTo:=Range(Cells(1, 1), Cells(Erow, ECol))
End Sub
Ich würde das gerne beim verlassen der Tabelle den Bereich aktualiseren.
Leider gibt der Code beim verlassen den Namen der Tabelle zurück zu der ich gewechselt bin.
mit WKSName = ThisWorkbook.Worksheets("Listen_2021").Name
kann ich das umgehen, aber dann müsste ich den Code für jede Tabelle anpassen.
Hat jemand einen Tipp ?
Danke schon mal und schöne Ostern
Rolf
Mit dem nachfolgenden Code
Private Sub Worksheet_Activate()
Dim Erow As Long, ECol As Long, WKSName As String
Erow = Range("a1").CurrentRegion.Rows.Count
ECol = Range("a1").CurrentRegion.Columns.Count
WKSName = ActiveSheet.Name
ActiveWorkbook.Names.Add Name:=WKSName, RefersTo:=Range(Cells(1, 1), Cells(Erow, ECol))
End Sub
Ich würde das gerne beim verlassen der Tabelle den Bereich aktualiseren.
Leider gibt der Code beim verlassen den Namen der Tabelle zurück zu der ich gewechselt bin.
mit WKSName = ThisWorkbook.Worksheets("Listen_2021").Name
kann ich das umgehen, aber dann müsste ich den Code für jede Tabelle anpassen.
Hat jemand einen Tipp ?
Danke schon mal und schöne Ostern
Rolf