VBA-Excel Arbeitsblattnamen als Überschrift nutzen

05/06/2009 - 15:34 von manfred | Report spam
Hallo Ihr VBA Freunde

Ich möchte mir gerne eine schleife machen wo ich den Arbeitsblattnamen in
dem jeweilingen Arbeitsblatt in eine Zeile schreibe. ich möchte aber das
nicht in allen haben sonder ich hàtte 4 Ausnahmen . Ich hoffe Mir kann
jemand helfen.

Mfg Manfred Fritz
 

Lesen sie die antworten

#1 Beverly
05/06/2009 - 15:58 | Warnen spam
Hi Manfred,

nach diesem Prinzip:

Sub TabNamen()
Dim wsTabelle As Worksheet
For Each wsTabelle In Worksheets
If wsTabelle.Name <> "Tabelle1" And wsTabelle.Name <> "Tabelle2"
Then _
wsTabelle.Range("A1") = wsTabelle.Name
Next wsTabelle
End Sub

Bis spàter,
Karin
http://beverly.excelhost.de/


"manfred" wrote:

Hallo Ihr VBA Freunde

Ich möchte mir gerne eine schleife machen wo ich den Arbeitsblattnamen in
dem jeweilingen Arbeitsblatt in eine Zeile schreibe. ich möchte aber das
nicht in allen haben sonder ich hàtte 4 Ausnahmen . Ich hoffe Mir kann
jemand helfen.

Mfg Manfred Fritz



Ähnliche fragen