TabellenBlattName verkehrt herum
24.09.2006 17:13:47
michael
Sub PrintTabBlattZelleA1()
Dim micha
Dim blattName
For a = 1 To Worksheets.Count
micha = a
Worksheets(micha).Select
blattName = ActiveSheet.Name
[a1] = (blattName)
Next a
End Sub
Ich habe etliche Tabellen Blätter die einen Namen haben
mit o.a.Makro schreibe ich den Tabblatt Namen in ( A1 )
geht das auch verkehrt herum ?
Die Frage klingt etwas Paradox , aber einmal bekomm ich die Dateien mit Namen
im TabellenBlatt Register und das andere mal mit Namen in A1 und das TabellenBlatt Register
im Stadium Tab 1, Tab 2,usw
Danke michael.
Da alle Tabellen Blätter nicht gesperrt sind und die einzelnen Tabellen Blätter mit
einem Makro angesprungen werden , vergleiche ich A1 mit dem TabNamen ,ist Vergleich
Falsch Ende Makro-daher TabName und A1 gleicher Name