Thema Datum  Von Nutzer Rating
Antwort
06.10.2008 11:29:45 tpr
NotSolved
Blau Aw:einfaches makro zu schwierig für mich.
 06.10.2008 16:52:40 Christoph
NotSolved

Ansicht des Beitrags:
Von:
Christoph		 Datum:
06.10.2008 16:52:40		 Views:
1652		 Rating:
     
Antwort:
  Ja
Thema:
Aw:einfaches makro zu schwierig für mich.
For i = 1 To ActiveWorkbook.Sheets.Count - 1

Tabellenname = Sheets(i).CodeName
Sheets("Ausgabe_tabelle").Range("B"&i).value = Tabellenname

next i


Is jetzt alles ein wenig ausm Kopf, muss getestet werden. aber vom Grudnsatz her, solte es so gehen.
Er nimmt in der For-Schleife jede Tabelle, setzt den Namen auf die Var "Tabellenname" und schreibt sie untereinander in die Tabelle "Ausgabe_tabelle".


Gruß Chris

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.10.2008 11:29:45 tpr
NotSolved
Blau Aw:einfaches makro zu schwierig für mich.
 06.10.2008 16:52:40 Christoph
NotSolved