Reiter bennen nach Spalte A

Bild

Betrifft: Reiter bennen nach Spalte A
von: braun
Geschrieben am: 15.09.2015 21:01:55

Guten Abend :)
Ich hoffe dieses Makro ist möglich, ich habe verschiedene Excel-Sheets mit, diese enthalten unterschiedlich viele Tabellenblätter. Bei jedem Reiter steht in SpalteA , Zelle 3, eine Nummer, die sich von den anderen Nummern in den anderen Reitern unterscheidet. Ich hätte gerne ein Makro, dass in den jeweiligen Tabellenblättern in diese Zelle in Spalte A schaut und dann den Reiter automatisch nach dieser Nummer benennt. Ist sowas möglich?
Ich hoffe ich habe mich verständlich ausgdrückt.
Viele Grüße
Karin

Bild

Betrifft: AW: Reiter bennen nach Spalte A
von: Sepp
Geschrieben am: 15.09.2015 21:04:59
Hallo Karin,

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub NameSheets()
Dim objSh As Worksheet

On Error Resume Next

For Each objSh In ThisWorkbook.Worksheets
  objSh.Name = objSh.Range("A3").Text
Next

On Error GoTo 0
End Sub


Gruß Sepp


Bild

Betrifft: AW: Reiter bennen nach Spalte A
von: karin
Geschrieben am: 16.09.2015 14:47:01
Vielen Dank!
In der Excelmappe sind zwei Tabellenblätter. Wie kann man das zweite Tabellenblatt nach A3 benennen?
MFG

Bild

Betrifft: Antwort ist doch in deinem 1.Beitrag..owT
von: robert
Geschrieben am: 16.09.2015 18:53:31


Bild

Betrifft: AW: Reiter bennen nach Spalte A
von: Sepp
Geschrieben am: 16.09.2015 20:01:46
Hallo Karin,
mein Code bennent alle Tabellenblätter nach dem Text in A3!
Das wolltest du doch, oder?
Sonst musst du dein Anliegen noch einmal präziser beschreiben.

Gruß Sepp


Bild

Betrifft: AW: Reiter bennen nach Spalte A
von: Uduuh
Geschrieben am: 15.09.2015 21:05:21
Hallo,
ganz einfach:

sub yyy()
  dim wks as worksheet
  for each wks in worksheets
    wks.name=wks.Range("A3")
  next wks
end sub
Gruß aus’m Pott
Udo


Bild

Betrifft: "Reiter bennen" ist prima
von: WF
Geschrieben am: 15.09.2015 21:49:35
.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Reiter bennen nach Spalte A"