Tabellenname ausgeben
22.12.2016 12:39:51
Thomas
wenn ich mit
Sub xx()
Dim objSheet As Object
Dim lngZeile As Long
lngZeile = 1
For Each objSheet In ActiveWorkbook.Sheets
ActiveWorkbook.Worksheets("test").Cells(lngZeile, 1).Value = objSheet.Name
lngZeile = lngZeile + 1
Next
End Sub
die tabellennamen ausgebe, erscheinen mir nur die namen
ich möchte aber die ausgabe:
Tabelle1(Name)
Tabelle2(Name)
also die Namensgebung vom VBA editor
danke im vorraus
mfg thomas