Office: Tabellenblatt umbenennen

Iluminati · 20. November 2019

Hallo zusammen,

Ich habe ein Tabellenblatt einer Arbeitsmappe kopiert (das ganze Tabellenblatt und nicht nur den Inhalt) und dieses in eine andere Arbeitsmappe eingefügt. Nun möchte ich das neu eingefügte Tabellenblatt umbenennen. Bekomme das nur leider ums verrecken nicht hin. Verhindert wird das aufgrund des Laufzeitfehler 1004 (Anwendungs- oder objektdefinierter Fehler).

Dieser Fehler besagt ja eigentlich, dass VBA angegebene Objekte nicht finden kann. Dies ist aber nicht der Fall. Also ganz dumme Frage. Wie muss denn die Syntax zum umbenennen von Tabellenblättern lauten?

Ich hab mal:
Code:

Set wbkSNR = Workbooks.Open(strSchnittstelle & "ABC.xls")
wbkSNR.Worksheets("Sheet1").Copy After:=ThisWorkbook.Worksheets("Tabelle1")
ThisWorkbook.Worksheets("Sheet1").Select ActiveSheet.Name = "XYZ"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Mase · 22. November 2019

Hi,

zeig mal die ganze Sub.

edit:
Code:

ThisWorkbook.Worksheets("Sheet1").Select
ActiveSheet.Name = "XYZ"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Iluminati · 22. November 2019

Code:

Sub Titel()
Dim lngZeileMax As Long
Dim i_Counter As Integer
Dim varMappen() As Variant

Dim lngZeile As Long

Dim lngZeileMaxBT As Long
Dim strPfadBT, strMappeBT As String
Dim strTabelleBT As String

Dim wbkSNR As Workbook

'--------------------------------------------------------------------------------------------------------------------------
Const strMappe As String = "C:UsersmarranDesktopTestKW 1" & "Makro.xlsm"
Const strSchnittstelle As String = "C:UsersmarranDesktopTest"

strPfadBT = ThisWorkbook.Path & ""
strMappeBT = Dir(strPfadBT & "*.xlsm")

ThisWorkbook.Worksheets.Select
ActiveSheet.Name = "Tabelle1"
With Tabelle1
.Cells(1, 1).Value = "Überschrift 1"
.Cells(1, 3).Value = "Überschrift 2"
.Cells(1, 5).Value = "Überschrift 3"
End With

Set wbkSNR = Workbooks.Open(strSchnittstelle & "ABC.xls")
wbkSNR.Worksheets("Sheet1").Copy After:=ThisWorkbook.Worksheets("Tabelle1")

ThisWorkbook.Worksheets("Sheet1").Select ActiveSheet.Name = "XYZ" 'In dieser Zeile kommt der Fehler !!! (Hatte das auch schon anders formuliert, ohne Erfolg)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase · 22. November 2019

Ich gehe davon aus, dass es die Tabellenblätter Tabelle1 und Sheet1 gibt:

Code:

Sub Titel()
Dim lngZeileMax As Long
Dim i_Counter As Integer
Dim varMappen() As Variant

Dim lngZeile As Long

Dim lngZeileMaxBT As Long
Dim strPfadBT, strMappeBT As String
Dim strTabelleBT As String

Dim wbkSNR As Workbook

'--------------------------------------------------------------------------------------------------------------------------
Const strMappe As String = "C:\Users\marran\Desktop\Test\KW 1\" & "Makro.xlsm"
Const strSchnittstelle As String = "C:\Users\marran\Desktop\Test\"

strPfadBT = ThisWorkbook.Path & ""
strMappeBT = Dir(strPfadBT & "*.xlsm")

ThisWorkbook.Worksheets.Select
ActiveSheet.Name = "Tabelle1"
With Tabelle1
.Cells(1, 1).Value = "Überschrift 1"
.Cells(1, 3).Value = "Überschrift 2"
.Cells(1, 5).Value = "Überschrift 3"
End With

Set wbkSNR = Workbooks.Open(strSchnittstelle & "ABC.xls")
wbkSNR.Worksheets("Sheet1").Copy After:=ThisWorkbook.Worksheets("Tabelle1")

ThisWorkbook.Worksheets("Sheet1").Select
ActiveSheet.Name = "XYZ" 'In dieser Zeile kommt der Fehler !!! (Hatte das auch schon anders formuliert, ohne Erfolg)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hinweis:
Dim strPfadBT, strMappeBT As String
strPfadBT wird hier als Variant deklariert

Iluminati · 22. November 2019

Ja, diese beiden Tabellenblätter existieren tatsächlich. Das eine heißt Sheet1 (also die englische Schreibweise), da es ein Export einer Software ist und die das einfach so macht.

Zur Variablendeklaration. Gilt "Dim strVar1, strVar2 As String" in dieser Schreibweise nicht für beide Variablen?

Mase · 22. November 2019

Geh mal in Einzelschritten durch, und schaue Dir im Lokalen Anzeigenfenster den Datentyp an.

Code:

Sub Titel()
Dim lngZeileMax As Long
Dim i_Counter As Integer
Dim varMappen() As Variant

Dim lngZeile As Long

Dim lngZeileMaxBT As Long
Dim strPfadBT, strMappeBT As String
Dim strTabelleBT As String

Dim wbkSNR As Workbook

'--------------------------------------------------------------------------------------------------------------------------
Const strMappe As String = "C:\Users\marran\Desktop\Test\KW 1\" & "Makro.xlsm"
Const strSchnittstelle As String = "C:\Users\marran\Desktop\Test\"

strPfadBT = ThisWorkbook.Path & ""
strMappeBT = Dir(strPfadBT & "*.xlsm")

ThisWorkbook.Worksheets(1).Select
ActiveSheet.Name = "Tabelle1"
With ActiveSheet
.Cells(1, 1).Value = "Überschrift 1"
.Cells(1, 3).Value = "Überschrift 2"
.Cells(1, 5).Value = "Überschrift 3"
End With

Set wbkSNR = Workbooks.Open(strSchnittstelle & "ABC.xls")
wbkSNR.Worksheets("Sheet1").Copy After:=ThisWorkbook.Worksheets("Tabelle1")

ThisWorkbook.Worksheets("Sheet1").Select
ActiveSheet.Name = "XYZ" 'In dieser Zeile kommt der Fehler !!! (Hatte das auch schon anders formuliert, ohne Erfolg)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schau Dir das mal an; es sind ein paar Korrekturen noch dabei.
Auf Select kannste i.d.Regel verzichten; jenes Thema solltest Du angehen sobald #1004 gelöst ist.

Iluminati · 22. November 2019

Hallo Mase,

Ich konnte keine Korrekturen erkennen. Vielleicht bin ich aber nur blind. Der Code ist 1:1 identisch. Kannst Du mir auf die Sprünge helfen?

MisterBurns · 22. November 2019

Der Unterschied ist, dass
Code:

ThisWorkbook.Worksheets("Sheet1").Select ActiveSheet.Name = "XYZ"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in einer Zeile geschrieben zumindest bei mir nicht funktioniert. Die Umbenennung gehört in eine eigene Codezeile.
#1004 deutet nebenbei auch nicht darauf hin, dass das Blatt nicht existiert, das wäre nämlich #9.

Mase · 12. Januar 2021

von Iluminati

Hallo Mase,

Ich konnte keine Korrekturen erkennen. Vielleicht bin ich aber nur blind. Der Code ist 1:1 identisch. Kannst Du mir auf die Sprünge helfen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zudem noch folgende Zeilen:

1)
Code:

ThisWorkbook.Worksheets.Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

2)
Code:

With Tabelle1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

zu 1)
Code:

ThisWorkbook.Worksheets(1).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

zu2 )
Code:

With ActiveSheet
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Iluminati · 22. November 2019

Ah, danke.

Jetzt hab ich was raus gefunden. Es funktioniert scheinbar doch. Zumindest jetzt. Musste zwar noch bisserl dran schrauben aber jetzt funktioniert es bis dahin wie gewollt. Danke dir.

knobbi38 · 22. November 2019

Hallo Iluminati,

hier noch ein Vorschlag, ohne Selection:
Code:

Dim wbkTarget As Workbook ' Zielmappe
Dim wbkSource As Workbook ' Quellmappe
Dim wksSource As Worksheet ' Quelltabelle
Dim idx As Long ' Index Einfügeposition

' Aktuelle Arbeitsmappe als Kopierziel
Set wbkTarget = ThisWorkbook

' Index des Tabellenblattes, nach dem eingefügt werden soll
idx = wbkTarget.Worksheets("Tabelle1")

' Quelle öffnen
Set wbkSource = Workbooks.Open("ABC.xls")
Set wksSource = wbkSource.Worksheets("Sheet1")

' Tabelle kopieren und einfügen
wksSource.Copy After:=wbkTarget.Worksheets(idx)
Set wksSource = Nothing

' Quelle schließen
wbkSource.Close: Set wbkSource = Nothing

' Eingefügte Tabelle umbenennen
wbkTarget.Worksheets(idx + 1).Name = "XYZ"
Set wbkTarget = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kann man noch zusammenfassen, aber ich wollte es mal bewußt ausführlicher.

Gruß Ulrich

Mase · 12. Januar 2021

von Iluminati

Ah, danke.

Jetzt hab ich was raus gefunden. Es funktioniert scheinbar doch. Zumindest jetzt. Musste zwar noch bisserl dran schrauben aber jetzt funktioniert es bis dahin wie gewollt. Danke dir.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gerne.

Iluminati · 23. November 2019

Hallo knoobi,

auch Dir ein Danke. schau ich mir am Ende an. Jetzt geht´s erstmal weiter zum nächsten Schritt.

Office: Tabellenblatt umbenennen

Tabellenblatt umbenennen

Tabellenblatt umbenennen

Tabellenblatt umbenennen

Tabellenblatt umbenennen

Tabellenblatt umbenennen

Tabellenblatt umbenennen - Similar Threads - Tabellenblatt umbenennen

VBA Tabellenblatt umbenennen

Tabellenblatt mit VBA suchen und umbenennen

Tabellenblatt kopieren und umbenennen

Tabellenblatt umbenennen mit Namen aus Zelle

Tabellenreiter automatisch umbenennen, diesmal mit Bezug auf Zelle mit Formel

VBA Tabellenblatt aus bestehendem File kopieren, umbenennen und ans ende stellen

Tabellenblätter erkennen und umbenennen