Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook und Worksheets neu Deklarieren, Umbenenne

Forumthread: Workbook und Worksheets neu Deklarieren, Umbenenne

Workbook und Worksheets neu Deklarieren, Umbenenne
04.10.2018 21:11:49
SteinApfel
Hey, da bin ich erneut :D
Diesmal würde ich gerne mein Workbook und meine Worksheets Umbenennen.
Mein Versuch:
Private Sub Workbook_Open()
Dim WSEinstellungen, WSEinfach, WSVSG, WSMIG As Worksheet
Dim WBBook As Workbook
Set WBBook = ThisWorkbook
With WBBook
Set WSEinstellungen = .Worksheets("Tabelle1")
Set WSEinfach = .Worksheets("Tabelle2")
Set WSVSG = .Worksheets("Tabelle3")
Set WSMIG = .Worksheets("Tabelle4")
End With
Lasse ich es mit F8 durchlaufen, tritt an der Stelle "Set WSEinstellungen =.Worksheets("Tabelle1")" ein Laufzeitfehler '9' auf.
Was habe ich falsch gemacht?
Ebenso bin ich für Vorschläge von vernünftigen Abkürzungen sehr dankbar, ich weiß, dass ich da nicht so der einfallsreichste bin :D
Vielen Dank vorab ;)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook und Worksheets neu Deklarieren, Umbenenne
04.10.2018 21:19:30
Werner
Hallo,
dann gibt es in der Datei kein Worksheet mit dem Namen "Tabelle1".
So sprichst du ein Tabellenblatt an, dass "Tabelle1" heißt - das ist der vergebene Name, der auf dem entsprechenden Tabellenblattreiter steht - im VBA-Editor-Baum der Wert in der Klammer.
Gruß Werner
AW: Workbook und Worksheets neu Deklarieren, Umbenenne
04.10.2018 21:25:23
SteinApfel
Ach so, ich bin halt davon ausgegangen, dass wenn:
Tabelle1.Activate
sich auf Tabelle1 bezieht (der Name vor der Klammer), dass es dabei dann genau so sein muss.
Vielen Dank für die schnelle Antwort wieder ;)
Hab da noch einiges zu lernen wann Excel sich aus welchen Gründen worauf bezieht... -.-
Anzeige
AW: Workbook und Worksheets neu Deklarieren, Umbenenne
04.10.2018 21:41:00
Werner
Hallo,
dann mußt du das Worksheets davor weglassen 
Set WSEinstellungen = Tabelle1
Gruß Werner
AW: Workbook und Worksheets neu Deklarieren, Umbenenne
04.10.2018 21:44:41
SteinApfel
Okay, vielen Dank für die Aufklärung.
Der Befehl "Worksheet" bezieht sich immer auf den Aktuellen Namen. Währenddessen Tabelle1. oder Tabelle1 sich immer auf die erste Tabelle bezieht.
Demnach wäre es doch sicherer, wenn ich das Worksheet weglasse, da es eventuell umbenannt werden könnte und dadurch der Code gestört wird, oder!?
Anzeige
AW: Workbook und Worksheets neu Deklarieren, Umbenenne
04.10.2018 21:46:38
Matthias
Du musst "sauberer" deklarieren
Nicht Dim WSEinstellungen, WSEinfach, WSVSG, WSMIG As Worksheet
hier ist nur WSMIG als Worksheet deklariert
sondern:

Dim WSEinstellungen As Worksheet
DiM WSEinfach As Worksheet
Dim WSVSG As Worksheet
Dim WSMIG As Worksheet
Gruß Matthias
Anzeige
AW: Workbook und Worksheets neu Deklarieren, Umbenenne
04.10.2018 21:52:59
SteinApfel
Oh stimmt, vielen Dank.
Es ginge aber auch (Was ich eigentlich auch im Kopf hatte :P )
Dim WSVSG as Worksheet, WSMIG as Worksheet und so weiter.
ob mit Komma getrennt oder zeilenweise ist egal
04.10.2018 21:57:00
Matthias
Hi
Du musst aber alle einzeln zuweisen mit As WorkSheet
Gruß Matthias
;

Forumthreads zu verwandten Themen

Worksheet.Protect - Passw per VBA läuft nicht mehr
Max

Hallo zusammen.
Folgendes Makro habe ich seit Jahren ohne probleme benutzt: Sub HBxkxU() On Error Resume Next ActiveSheet.Unprotect Password:="" If Err "0" Then Err = "0" ActiveSheet.Unprotect Password:="XpwX" Else: Stop End If End Sub Es lief anstandslos auf den letzten 2 Excel 2007 Inst...
06.04.2010 15:48:44
Thread-ID: 1150350
4 Beiträge
Worksheetübergabe an anderes Workbook
Elke

Liebe Excelgemeinde,
mit dem Problem hatte ich mich schonmal gemeldet und es lief auch wieder eine ganze Weile reibungslos. Nun passiert es wieder, daß auf 2 bestimmten Rechner unter Win 7 unten stehende eigentlich triviale Prozedur nicht ausgeführt wird.
Es soll ein Worksheet "Fall_X"...
15.05.2012 21:00:05
Thread-ID: 1263634
17 Beiträge
Worksheets in dreidimensionales Array einlesen VBA
Jane

Hallo,
ich bin hier noch neu und auch noch nicht so geuebt in VBA.
Vielleicht stehe ich nur auf der Leitung, aber ich wuerde eigentlich gerne nur wissen, wie ich schnellstmoeglich ein ganzes Worksheet in ein dreidimensionales Array einlesen lassen kann ohne jede einzelne Zelle aufrufen...
20.03.2014 04:42:35
Thread-ID: 1354132
6 Beiträge
Anzeige
Worksheets vs. Sheets
Begges
Hallo,
macht es eigentlich einen Unterschied wenn ich beim Programmieren faul bin und anstelle worksheet(name).XXX nur sheets(name).XXX schreibe??
Im Forum wirds auch sehr unterschiedlich gemacht.
Danke
18.07.2003 10:09:15
Thread-ID: 282604
6 Beiträge
Übersetzung von Worksheetsfunction in VBA??
Worksheetsfunction

Hallo Ihr
ich habe ien Problem fuer das es sicherlich eine leichte Lösung gibt.
Wenn ich eine Funktion habe, die ich auch einem Tabellenblatt ohne VBA benutzen kann muss im VBA Code WorksheetFunction davor schreiben. Leider habe ich mit der Übersetzung teilweise probleme, da ich z.B.: St...
05.08.2004 11:21:01
Thread-ID: 465187
7 Beiträge
Worksheets Array in neues Workbook kopieren (VBA)
Daniel

Hey Profis,
Wie kann ich ein worksheet array in eine neue Datei kopieren? Die Tabellenblaetter werden in der Masterdatei ausgewaehlt und sollen dann per Knopfdruck in die neue Datei kopiert werden.
Mit einem worksheet() habe ich es nicht geschafft. Am einfachsten waere wohl einfach ein...
05.07.2005 21:15:51
Thread-ID: 633276
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Workbook und Worksheets neu Deklarieren und Umbenennen

Schritt-für-Schritt-Anleitung

  1. Workbook und Worksheets deklarieren: Beginne mit der Deklaration deines Workbooks und der Worksheets. Achte darauf, die richtigen Namen zu verwenden. Hier ein Beispiel für die korrekte Deklaration:

    Dim WBBook As Workbook
Dim WSEinstellungen As Worksheet
Dim WSEinfach As Worksheet
Dim WSVSG As Worksheet
Dim WSMIG As Worksheet
Set WBBook = ThisWorkbook
Set WSEinstellungen = WBBook.Worksheets("Tabelle1")

  2. Fehlerbehebung: Wenn du beim Setzen der Worksheets einen Laufzeitfehler erhältst, überprüfe, ob die angegebenen Blätter tatsächlich existieren und ob die Namen korrekt geschrieben sind.

  3. Umbenennen von Worksheets: Um ein Worksheet umzubenennen, kannst du den folgenden Befehl verwenden:

    WBBook.Worksheets("Tabelle1").Name = "NeuerName"

Häufige Fehler und Lösungen

  • Laufzeitfehler '9': Dieser Fehler tritt auf, wenn das angegebene Worksheet nicht existiert. Überprüfe den Namen des Worksheets im VBA-Editor und stelle sicher, dass er mit dem tatsächlichen Namen übereinstimmt.

  • Unzureichende Deklaration: Wenn du mehrere Worksheets deklarierst, achte darauf, sie korrekt zu deklarieren. Anstelle von:

    Dim WSEinstellungen, WSEinfach, WSVSG, WSMIG As Worksheet

    solltest du dies verwenden:

    Dim WSEinstellungen As Worksheet
Dim WSEinfach As Worksheet
Dim WSVSG As Worksheet
Dim WSMIG As Worksheet

Alternative Methoden

  • Direktes Ansprechen der Worksheets: Anstatt Set WSEinstellungen = WBBook.Worksheets("Tabelle1") zu verwenden, kannst du auch einfach den Namen des Worksheets direkt angeben:

    Set WSEinstellungen = Tabelle1

  • Verwendung von ThisWorkbook: Dies stellt sicher, dass du immer auf das aktive Workbook zugreifst, egal in welchem Kontext dein VBA-Code läuft.

Praktische Beispiele

Ein Beispiel für das Umbenennen und Deklarieren von Worksheets in einem Workbook könnte so aussehen:

Private Sub Workbook_Open()
    Dim WBBook As Workbook
    Dim WSEinstellungen As Worksheet
    Set WBBook = ThisWorkbook
    Set WSEinstellungen = WBBook.Worksheets("Tabelle1")

    ' Umbenennen des Worksheets
    WSEinstellungen.Name = "Einstellungen"
End Sub

Achte darauf, dass die Namen der Worksheets genau mit denen in deinem Workbook übereinstimmen.

Tipps für Profis

  • Verwende sprechende Namen: Anstatt "Tabelle1" zu verwenden, nenne deine Worksheets nach ihrem Inhalt (z.B. "Verkäufe", "Einstellungen"), um die Übersichtlichkeit zu erhöhen.

  • Fehlerbehandlung einbauen: Implementiere Fehlerbehandlungsroutinen, um Laufzeitfehler zu vermeiden. Das kann so aussehen:

    On Error Resume Next
Set WSEinstellungen = WBBook.Worksheets("Einstellungen")
If Err.Number <> 0 Then
    MsgBox "Das Worksheet 'Einstellungen' existiert nicht"
End If
On Error GoTo 0

FAQ: Häufige Fragen

1. Wie kann ich mehrere Worksheets gleichzeitig umbenennen?
Du kannst eine Schleife verwenden, um mehrere Worksheets durchzugehen und sie entsprechend zu benennen.

2. Was ist der Unterschied zwischen Sheets und Worksheets in VBA?
Sheets umfasst sowohl Worksheets als auch Charts, während Worksheets nur die Tabellenblätter umfasst. Verwende Worksheets, wenn du nur mit Tabellen arbeiten möchtest.

3. Wie kann ich Abkürzungen für Worksheets festlegen?
Du kannst ein Dictionary verwenden oder Variablen für häufig verwendete Worksheets deklarieren, um den Code übersichtlicher zu gestalten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige