Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

628to632

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

div. Blätter, Blattname aus Zelle

Forumthread: div. Blätter, Blattname aus Zelle
8 Beiträge zu diesem Forumthread
Anzeige
305 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

27.06.2005 17:26:19

helena

Hallo, hätte noch was kleines denke ich
ich kopiere div. Blätter in Datei XY, dies ist kein problem
wenn ich fertig bin und ich befinde mich in Datei XY möchte
alle Blätter ausser "INFO" mit Namen aus Inhalt Zelle $O$2
versehen, mit VBA. Tabellenmame ist immer in $O$2, starten
von Markro manuell also nicht mit Druck oder sonst was.
Blatt INFO heisst immer "INFO"
DANKE für Hilfe
gruss helena

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: div. Blätter, Blattname aus Zelle

27.06.2005 18:04:04

Peter
AW: div. Blätter, Blattname aus Zelle

27.06.2005 18:16:26

helena
AW: div. Blätter, Blattname aus Zelle

27.06.2005 19:36:33

Rocky
AW: div. Blätter, Blattname aus Zelle

27.06.2005 19:49:29

helena
AW: div. Blätter, Blattname aus Zelle

27.06.2005 19:59:56

Rocky
Ich Hab's

27.06.2005 20:20:29

Rocky
AW: div. Blätter, Blattname aus Zelle

27.06.2005 20:40:04

Peter
AW: div. Blätter, Blattname aus Zelle

27.06.2005 20:49:14

helena

AW: div. Blätter, Blattname aus Zelle

27.06.2005 18:04:04

Peter

Servus,
etwas wirre Beschreibung, so hätt ichs verstanden.

Sub t()
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
sh.Name = sh.Range("O2").Value
Next
End Sub

MfG Peter

AW: div. Blätter, Blattname aus Zelle

27.06.2005 18:16:26

helena

Hallo Peter
fast, einzig Blatt "INFO" hat in Zelle keinen Inhalt
d.h. INFO bleibt vorbenannt, rest muss ändern.
Hoffe jetzt klarer
Danke
gruss helena

AW: div. Blätter, Blattname aus Zelle

27.06.2005 19:36:33

Rocky

Hallo helena,
dann machs doch so
ich greif auf die lösung von peter zurück:


Sub t()
Dim sh As Object
sheets("INFO").visible=false
For Each sh In ActiveWorkbook.Sheets
sh.Name = sh.Range("O2").Value
Next
sheets("INFO").visible=true
End Sub

d.h. wenn info weg ist trifft die beschreibung auf alle zu.
wenn die prozedur vorbei ist wird info wieder eingfügt!
klappt's?
GRUß Rocky

AW: div. Blätter, Blattname aus Zelle

27.06.2005 19:49:29

helena

Hallo Rocky
es geht nicht in Zeile "sh.Name = sh.Range("b2").Value"
kommt Fehler 1004, hat aber nichts mit ausblenden zu tun, war
schon im Test vorher so


Sub page_name()
Dim sh As Object
Sheets("INFO").Visible = False
For Each sh In ActiveWorkbook.Sheets
sh.Name = sh.Range("b2").Value
Next
Sheets("INFO").Visible = True
End Sub

gruss helena

AW: div. Blätter, Blattname aus Zelle

27.06.2005 19:59:56

Rocky

Hallo helena,
hast du vieleicht falsch abgeschrieben? du schreibst gerade
"b2" ich dachte es geht um "O2"
schau mal erstnochmal! fals es wieder nicht geht schreib nochmal!
gruß Rocky

Ich Hab's

27.06.2005 20:20:29

Rocky

Also habs selbst ausprobiert


Sub t()
Dim Blatt As Object
On Error Resume Next
Sheets("Info").Visible = False
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Visible = True Then
Blatt.Activate
Blatt.Name = ActiveSheet.Cells(2, 15)
End If
Next Blatt
Sheets("Info").Visible = True
End Sub

Klappt das bei dir auch!
https://www.herber.de/bbs/user/24256.xls
siehe selbst!

AW: div. Blätter, Blattname aus Zelle

27.06.2005 20:40:04

Peter

Servus,
so wie unten passts. Die Fehlermeldung 1004 kommt nur dann wenn du versuchst einem Tabellenblatt einen bereits vergebenen Namen zu geben. Das geht nicht, jedes TB braucht einen eigenen Namen. Da kann man soviele OnErrors einbauen wie man will, das einzige was passiert ist das das TB nicht umbenannt wird.

Sub t()
Dim sh As Object
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "INFO" Then
sh.Name = sh.Range("O2").Value
End If
Next
End Sub

MfG Peter

AW: div. Blätter, Blattname aus Zelle

27.06.2005 20:49:14

helena

Hallo Ihr beiden
DANKE für HILFE, denke sogeht es also erste Versuch
nach Vision von Rocky war erfolgreich, alles ohne
Fehlermeldung, auch wenn Zelle leer ist, behält er alte
Name und steckt nicht mit 1004 usw.
die Zelladresse kann ich schon ändern, habe mir nur nachträglich
ein Musterfile gemacht denn B2 ist näher als O2 ... deswegen
DANKE
und Gruss Helena
morgen im Geschäft kommt Probe für Ernstfall