Tabellenname in Zelle
Friedrich
ich hatte hier nach einer Lösung gesucht und auch eine gute Antwort erhalten.
Leider hatte ich den Prozess nicht ganz zu ende gedacht.
Ich hätte gerne, das der Registername, wenn das Register gelöscht wird ebenfalls aus der Zelle im Register "Pass" gelöscht wird.
Vielen Dank im voraus.
Friedrich Redenius
Hallo Friedrich,
probiere mal das:
ALT+F11 (VBA Editor)
Code kopieren
Im Editor den Code in "DieseArbeitsmappe" einfügen
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i%, n%
n = 2
For i = 1 To ThisWorkbook.Sheets.Count
If IsNumeric(Left(Sheets(i).Name, InStr(Sheets(i).Name, "."))) Then
Sheets("Pass").Cells(n, 1) = Sheets(i).Name
n = n + 1
End If
Next
End Sub
Gruß
Steffen
Anzeige