Office: Tabellenblatt umbenennen mit Namen aus Zelle

Hallo Harry,

hat nicht funktioniert. Die Grafik wird nicht übernommen.

Gruß
Vasek

 

Hallo Vasek,

Die Grafik wird bei mir übernommen, nur die Grafikdaten funktionieren nicht.

 

Hallo Harry,

habs auch schon hinbekommen, nur die Grafik ist von der Größe nicht wie das Original.
Kann man das Format (Seitenränder und Querformat) bei dem Tabellenblatt welches in die neue Datei kopiert wird übernehmen?
Denn in der neuen Datei ist die kopierte Tabelle im Hochformat mit den Standart-Seitenrändern.

Gruß
Vasek

 

Leider Vasek,

Grafiken sind nicht mein Ding.

 

Hallo Harry,

bei dem Format meine ich die Tabelle nicht die Grafik

Gruß
Vasek

 

Hallo Vasek,

Sie meinen so etwas?
Code:

 

Hallo Harry,

mit dem Querformat klappts. Kann man noch Seitenränder einstellen?
z.B. linker und rechter Rand 1,3cm oben und unten 0,8cm.

Gruß
Vasek

 

Hallo Vasek,


Code:

 

Hallo Harry,

hat super geklappt - ich hoffe, nicht lästig gewesen zu sein.
Nochmals danke, danke, danke *top

Gruß
Vasek

 

Hallo Vasek,

Natürlich nicht.
Aber mein Deutsch ist nicht als dieses Wesen muss.
Ich benutze gelegentlich ein Übersetzer, aber das scheint nicht immer zu funktionieren.

Schön, dass es funktionierte.

 

Hallo,
ich habe nochmal eine Frage zu diesem Thema. Der Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook.Worksheets(1)
.Name = .Range("B1")
End With
ThisWorkbook.Save
End Sub

funktioniert bei mir soweit. Wie muss ich diesen aber erweitern, damit jedes Tabellenblatt aktualisiert wird und nicht nur Blatt 1?

Grüße

Heinrich

 

Etwa so:
Code:

Der Code ist in seiner jetzigen Form sehr einfach gehalten und übernimmt derzeit keine Prüfung, ob der vorgegebene Name in B1 auf jeder Tabelle valide und nicht doppelt ist.

 

doppelt geantwortet...

 

Jawoll besten Dank, reicht mir in der Form hin *Smilie

 

Hi,

Ich habe ein ähnliches Problem und die Lösung die hier gebracht wurde ausprobiert, aner leider ohne Erfolg.

Ich habe daher ein eigenes Thema gestartet https://www.ms-office-forum.net/foru...d.php?t=358146

Es wäre toll, wenn mir jemand helfen könnte. *Smilie

Danke *Smilie

Tim