Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
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
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellen mit unbekanntem Namen ansprechen

Forumthread: Tabellen mit unbekanntem Namen ansprechen

Tabellen mit unbekanntem Namen ansprechen
08.07.2003 10:32:35
Jörg
Hi NG!
Ich such 'ne Möglichkeit in einer Mappe Tabellen durch die Ausschlussmethode anzusprechen.
Ich muss in einer veröffentlichten Mappe mittels eines Patches verschiedene Formeln ändern.
so etwa
If IsNot Sheet.Name("A","B","C").activate
Danke
J
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen mit unbekanntem Namen ansprechen
10.07.2003 00:36:41
Melanie
Hallo Jörg,
wenn die Blätter alle aus der selben Vorlage stammen,
kannst du doch über den Codenamen des Blattes an die Kopien kommen.
Jedes Blatt hat einen sichtbaren Registernamen und einen VBA-Codenamen.
Standardmäßig sind diese Identisch.
Man kann sie aber auch im Eigenschaftsfenster des Blattes ändern.
Wenn eine Kopie eines Blattes erzeugt wird, erhöht sie die nachstehende
Zahl des Codenamens jeweils um eine Zahl.
Du musst also nur nach dem Namen der Vorlage suchen.
In folgender Prozedur gehe ich davon aus, dass der Codename
deiner Vorlage "Vorlage" lautet.
Ersetzte diesen durch den tatsächlichen, z.B."Tabelle1"

Sub VorlagenKopienFinden()
Dim strVorlage As String
Dim intWs      As Integer
strVorlage = "Vorlage"
For intWs = 1 To Worksheets.Count
With Worksheets(intWs)
If .Name <> strVorlage Then
If Left(.CodeName, Len(strVorlage)) = strVorlage Then
MsgBox "Blatt '" & .Name & "' wurde aus Vorlag erstellt"
End If
End If
End With
Next intWs
End Sub

--
Mit freundlichen Grüßen
Melanie Breden
_____________________
[Microsoft MVP für Excel]

Anzeige
AW: Tabellen mit unbekanntem Namen ansprechen
08.07.2003 10:58:05
RAnton
Hallo Jörg,
verstehe zwar dein Problem nicht aber du kannst doch alle Namen durch die Anweisung
thisworkbook.worksheets(1).name
dir holen.
Mach dir ne loop drumrum und fertig
Gruß
RAnton

AW: Tabellen mit unbekanntem Namen ansprechen
08.07.2003 11:14:50
jörg
Hi RAnton!
In meiner Tabelle werden über Code mittels einer Vorlage vom Benutzer neue Tabellen angelegt und mit Namen versehen(über userform) Da ich aber nicht weiß, wie die user die Tabellennamen vergeben haben, der Fehler in den Formeln aber in der Vorlage liegt, breitet er sich über die Vorlage aus.
Ich möchte in einem Patch daher alle Tabellen, außer denen die nicht durch die Vorlage erstellt wuren, die Formeln in den entsprechenden Zellbeeichen ändern.
Vielleicht hilft die die beigelegte datei:
Über Schaltfl. "Lehrer erstellen" werden aus der ausgeblendeten Vorlage "Lehrer allgemein" die Tabelle erstellt. In dieser Vorlage "Lehrer allgemein" befindet sich der Fehler.
LG
Jörg

Anzeige
AW: Tabellen mit unbekanntem Namen ansprechen
08.07.2003 11:25:11
RAnton
Hallo Jörg,
leider ist keine Datei angehängt.
Aber versuch doch mal den Code

Sub test()
Dim ws As Worksheet
Dim s As Variant
Dim strWSListe(2) As String
strWSListe(0) = "Tabelle1"
strWSListe(1) = "Tabelle2"
strWSListe(2) = "Tabelle3"
For Each ws In ThisWorkbook.Worksheets
For Each s In strWSListe
If s = ws.Name Then
MsgBox ws.Name
End If
Next
Next
End Sub

Der müsste dich doch weiterbringen.
Gruß
RAnton

Anzeige
AW: Tabellen mit unbekanntem Namen ansprechen
08.07.2003 11:18:22
Jörg
Die datei heißt "lehrfächerverteilung leer".
LG jörg

AW: Tabellen mit unbekanntem Namen ansprechen
08.07.2003 11:33:02
RAnton
Hallo Jörg,
das nützt nichts, du must mir den Link geben.
Gruß
RAnton

;

Forumthreads zu verwandten Themen

VBA Kopie Daten in anderes Tabellenblatt
Ronald

Hallo,
kann mir bitte jemand bei folgendem Problem helfen?
Ich hab ein Tabellenblatt "Eingabe", dort erfasse ich Daten. (Datum, Name, Betrag, Text, E/A, Kostenstelle, Anmerkung)
Ich brauche nun die Daten aus Datum, Name, Betrag, E/A, Kostenstelle im Tabellenblatt "Auswertung A".
15.09.2011 00:47:38
Thread-ID: 1229875
9 Beiträge
Mittels VBA Werte in anderes Tabellenblatt kopiere
Dominic

Hi zusammen,
Ich benötige eine Übergabe meiner Werte aus dem Tabellenblatt "Überblick" ins Tabellenblatt "Export". Der zu kopierende Bereich ist abhängig von folgenden Zellen:
B1
B2
I1
und B6.
1)
Wenn B1=1 und B2=1 und I2=1
Dann sollen die Werte aus B31 - O31 und...
30.01.2013 11:03:50
Thread-ID: 1296660
11 Beiträge
Anzeige
VBA variabilisierter Arbeitsblattname ansprechen
Lisa

Hallo Zusammen.
Ich bin schon kurz vor der Verzweiflung eines wahrscheinlich recht simplen Problems:
Ich hab bisher hinbekommen, dass, wenn das Datum Tag =1 ist, dass es ein neues Arbeitsblatt erstellt und es nach den neuen Monat erstellt.
allerdings hänge ich jett daran, das Blatt...
11.12.2014 15:02:33
Thread-ID: 1397426
3 Beiträge
Tabellen mit ihren Namen ansprechen
Torsten

Ich möchte gerne zwei Tabellenblätter gleichzeitig ansprechen.
Das klappt auch bereits mit folgenden Code: Sheets(Array("Blatt1", "Blatt2")).Select Sheets("Blatt1").Activate
Jedoch sind die Blattnamen vom Nutzer veränderbar, was zum Problem beim Markodurchlauf führt.
Ich möchte...
03.09.2016 15:47:42
Thread-ID: 1512765
4 Beiträge
VBA Formeln in anderes Tabellenblatt schreiben und
Gesa

Hallo zusammen!
Ich benötige mal wieder euer Rudelwissen.
Ich habe eine Datei, in der in Tabelleblatt "Pivot" in den Feldern I4 bis N Zahlen per Formel rauskommen. Nun möchte ich diese Ergebnisse gerne in das Tabellenblatt "Ergebnis S. 1" ab B22 bis G kopieren. Allerdings nur, wenn in d...
21.08.2018 15:06:57
Thread-ID: 1640779
2 Beiträge
Anzeige
VBA Mehrere Worksheets ansprechen
Karl

Hi,
Ich bin noch nicht solange am VBA programmieren und hätte eine Frage brzüglich des Ansprechens von Worksheets. Im Moment funktioniert die Scleife nur wenn ich mich in dem besagten Worksheet befinde (Comp1). Da ich aber mehrere Worksheets (Comp1, Comp2 , comp & m) ansprechen möchte...
12.03.2005 17:02:35
Thread-ID: 584297
8 Beiträge
VBA Zelle(n) mit ihrem Namen ansprechen
Reinhard

Hallo Wissende,
wie spreche ich z.B. in Selection_Change eine Zelle bzw einen Zellenbereich mit ihrem Namen an? Folgendes klappt nicht (abgesehen vom Fehler wenn eine Zelle keinen Namen hat). Muss ich das über RefersTo abprüfen?
Und wie spreche ich die Zelle(n) über ihren Namen bei Rang...
11.12.2005 18:10:46
Thread-ID: 707310
5 Beiträge
Anzeige
VBA: Zelleintrag, wenn Tabelle mit gleichem Namen
Fritz

Hallo VBA-Experten,
ich hoffe auf eure Hilfe.
In der "Tabelle2" habe ich in der Spalte D im Bereich D2:D31 eine Formel, die mir entweder einen Textwert oder "" liefert. Ich möchte nun beim Wechsel in dieses Tabellenblatt prüfen lassen, ob ein evtl. Texteintrag in diesem Bereich mit eine...
29.06.2006 19:01:32
Thread-ID: 777912
10 Beiträge
Ansprechen eines Feldnamens in VBA
Peter/Berlin

Hallo VBA-Fans,
in einem Sheet ist der Feldname 'yn' den ersten 101 Zellen der Spalte K zugeordnet.
Wie kann ich 'yn' von VBA aus ansprechen und z.B. für yn(Zeile 21) den entspr. Wert auslesen.
Wer kann mir weiterhelfen, ich komme einfach nicht darauf.
Gruss aus dem Berlin der L...
15.07.2006 09:43:21
Thread-ID: 782471
5 Beiträge
Anzeige
VBA Daten in ein anderes Tabellenblatt k
Laura

Hallo Zusammen,
ich bin gerade dabei ein Excel-Planungstool für unser Team zu entwerfen. Die Idee ist, dass man aus einer Liste die Projekte ankreuzen kann (dazu hat jeder Mitarbeiter seine/ihre eigene Spalte mit eigenem Kürzel), an denen man arbeiten, dann sein Kürzel in ein Feld eingibt u...
16.07.2020 09:44:13
Thread-ID: 1771886
4 Beiträge
VBA: Daten in anderes Tabellenblatt
Fritz_W

Hallo Forumsbesucher,
erneut brauche ich Hilfe durch VBA-kundige in folgender Angelegenheit:
Ich möchte den Zellbereich A2:A18 des Tabellenblatts "Daten" kopieren und als Werte in das Tabellenblatt "Datensicherung" in den Zeilenbereich 2:18 einfügen und zwar immer in die erste leere Spa...
27.07.2020 21:41:35
Thread-ID: 1774099
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Tabellen mit unbekanntem Namen ansprechen

Schritt-für-Schritt-Anleitung

  1. Öffne den Visual Basic for Applications (VBA) Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf das Projektfenster und wähle Einfügen > Modul.

  3. Schreibe den VBA-Code:

    • Nutze den folgenden Code, um Tabellen mit unbekanntem Namen anzusprechen. Dieser sucht nach Arbeitsblättern, die von einer Vorlage erstellt wurden.
    Sub VorlagenKopienFinden()
   Dim strVorlage As String
   Dim intWs As Integer
   strVorlage = "Vorlage" ' Ersetze dies durch den tatsächlichen Codenamen

   For intWs = 1 To Worksheets.Count
       With Worksheets(intWs)
           If .Name <> strVorlage Then
               If Left(.CodeName, Len(strVorlage)) = strVorlage Then
                   MsgBox "Blatt '" & .Name & "' wurde aus Vorlage erstellt"
               End If
           End If
       End With
   Next intWs
End Sub

  4. Führe den Code aus:

    • Drücke F5, um den Code auszuführen und die entsprechenden Blätter zu identifizieren.

Häufige Fehler und Lösungen

  • Fehler: "Blatt nicht gefunden"

    • Stelle sicher, dass der Codename der Vorlage korrekt ist. Überprüfe dies im Eigenschaftenfenster des Blattes.

  • Fehler: Der Code wird nicht ausgeführt

    • Vergewissere dich, dass du den Code im richtigen Modul eingefügt hast und dass du die richtigen Berechtigungen hast, um Makros auszuführen.

Alternative Methoden

  • Verwendung von Codenamen:

    • Anstatt die Namen der Blätter zu verwenden, kannst du direkt die Codenamen ansprechen. Beispiel:
    Sub CodenamenAnsprechen()
  Dim ws As Worksheet
  Set ws = ThisWorkbook.Vorlage ' Vorlage ist der Codename
  MsgBox ws.Name
End Sub

  • Ansprechen von Tabellenblättern durch Indizes:

    • Du kannst auch Tabellenblätter über ihren Index ansprechen:
    MsgBox ThisWorkbook.Worksheets(1).Name

Praktische Beispiele

  • Ändern von Formeln in allen Tabellen:

    • Wenn du in allen Arbeitsblättern Formeln ändern möchtest, kannst du so vorgehen:
    Sub FormelnAendern()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
      If ws.Name <> "Vorlage" Then
          ws.Range("A1").Formula = "=SUM(B1:B10)" ' Beispiel-Formel
      End If
  Next ws
End Sub

Tipps für Profis

  • Nutzung von Fehlerbehandlung:

    • Implementiere Fehlerbehandlungsroutinen, um das Skript robuster zu machen:
    On Error Resume Next
' Dein Code hier
On Error GoTo 0

  • Namen in Variablen speichern:

    • Speichere häufig genutzte Namen in Variablen, um den Code lesbarer zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich ein Arbeitsblatt ansprechen, wenn ich den Namen nicht kenne? Du kannst den Codename des Arbeitsblattes verwenden oder eine Schleife durch alle Arbeitsblätter machen, um gezielt nach bestimmten Eigenschaften zu suchen.

2. Was ist der Unterschied zwischen Codename und Name eines Blattes? Der Codename ist der Name, den VBA intern verwendet, während der Name der sichtbare Name im Excel-Interface ist. Der Codename bleibt konstant, während der Name geändert werden kann.

3. Kann ich ein Tabellenblatt ansprechen, das versteckt ist? Ja, du kannst auch auf versteckte Blätter zugreifen, indem du deren Codename oder Index verwendest.

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