Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblattname von einer anderen Arbeitsmappe

Tabellenblattname von einer anderen Arbeitsmappe
11.08.2015 17:44:18
einer
Guten Abend,
eine kurze Frage. Kann ich über folgenden Code auch den Tabellenblattnamen von Tabellenblätter aus einer anderen Arbeitsmappe ziehen oder beschränkt sich das nur auf Zellen.
Do
k = k + 1
wert = GetValue("E:\Dokumente", "test.xlsm", k + 1, "d6")
If IsError(wert) Then Exit Do
ActiveSheet.Cells(38 + k, 17) = wert
Loop
Im Code quasi das "d6" durch .name ersetzten, aber so klappt das natürlich nicht :)
Eine Idee?
Grüße
Anna

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblattname von einer anderen Arbeitsmappe
11.08.2015 18:27:29
einer
Hallo,
es ist möglich per ADO die Tabellennamen auszulesen.
Deine Methode Daten aus Mappen zu lesen ist für 2-3 Werte ok, aber sobald es mehr werden ist es schneller wenn die Mappe in Excel geöffnet ist. Es ist ja nicht so dass mit deiner Methode die Mappe nicht geöffnet wird, es geschieht nur für dich nicht sichtbar. Excel kratzt nämlich nicht direkt auf der Festplatte rum um Daten per DDE-Verbindung zu lesen. Ich hab's mal vor längerer Zeit getestet, 100 Werte auszulesen dauerte da rund 10 Sekunden. Die Mappe in Excel zu öffnen, die Daten in ein Array einzulesen und die Mappe wieder zu schließen dauerte knapp 2 Sekunden.
Beispiel für Tabellennamen auslesen:
Option Explicit

Public Sub Tabellennamen_auslesen()
    
    Dim objConnection As Object, objCatalog As Object
    Dim strConnection As String
    Dim strWorkbook As String, objTables As Object
    
    strWorkbook = "E:\Mappe1.xlsx"
    
    Set objConnection = CreateObject("ADODB.Connection")
    
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & strWorkbook & ";" & _
        "Extended Properties=""Excel 12.0;HDR=No;IMEX=0"""
    
    Call objConnection.Open(strConnection)
    
    Set objCatalog = CreateObject("ADOX.Catalog")
    Set objCatalog.ActiveConnection = objConnection
    
    For Each objTables In objCatalog.Tables
        With objTables
            Debug.Print Left$(.Name, Len(.Name) - 1)
        End With
    Next
    
    Set objCatalog = Nothing
    
    objConnection.Close
    
    Set objConnection = Nothing
    
End Sub

Gruß
Nepumuk

Anzeige
AW: Tabellenblattname von einer anderen Arbeitsmappe
12.08.2015 09:26:18
einer
Guten Morgen Nepumuk,
danke für deine tolle Antwort.
Drei Fragen hab ich:
1. Wo gebe ich an, wo die Werte ausgegeben werden?
2. Kannst du mir auch noch einen Weg aufzeigen wie eine Zelle in dieser Form ausgelesen wird ? _ Wahrscheinlich auch hier oder? Aber wie :) ? 

With objTables
Debug.Print Left$(.Name, Len(.Name) - 1)
End With

3. Und rein für mein Verständnis, wie gibst du hier an das alle Tabellenblätter durchsucht werden (Variable?)?
Danke jedenfalls schon mal für deine Hilfe.
Beste Grüße
Anna

Anzeige
AW: Tabellenblattname von einer anderen Arbeitsmappe
12.08.2015 10:10:27
einer
Hallo,
alle Tabellen werden damit durchlaufen:
For Each objTables In objCatalog.Tables
Der Name wird im Direktfenster ausgegeben:
Debug.Print Left$(.Name, Len(.Name) - 1)
Kannst du auch in eine Zelle schreiben.
z.B.
i = i + 1
Cells(i, 1) = Left$(.Name, Len(.Name) - 1)
Den Inhalt einer Zelle bekommst du vermutlich mit
Inhalt=objTables.Range("A1")
Gruß
Rudi

AW: Tabellenblattname von einer anderen Arbeitsmappe
12.08.2015 13:57:52
einer
Hallo Rudi,
Danke soweit verstanden :)
Tabellenblattnamen-Import klappt. Bloß bringt es die Namen alle mit einem $-Zeichen rüber. Wieso ist das so und kann man(n) (Rudi/Nepumuk) das ändern ;)
Und zum Zelleninnhalt einfügen hab ich auch noch eine Frage: 
With objTables
q = q + 1
Cells(q, 16) = objTables.Range("d6")
End With

So meintest du das nicht oder? Weil so funktioniert es leider nicht. Oder hab ich es an der falschen Stelle eingefügt?
Grüße
Anna

Anzeige
AW: Tabellenblattname von einer anderen Arbeitsmappe
12.08.2015 14:16:02
einer
Hallo,
Bloß bringt es die Namen alle mit einem $-Zeichen rüber
Deshalb Left$(.Name, Len(.Name) - 1)
Das es mit objTables.Range("d6") hab ich auch schon gemerkt. Das muss man per RecordSet (SQL) abfragen. Ist nicht ganz trivial.
Ich würde die Mappe öffnen, auslesen und wieder schließen. Wie Nepumuk schon schrieb, ist das wahrscheinlich auch schneller.
Gruß
Rudi

AW: Tabellenblattname von einer anderen Arbeitsmappe
12.08.2015 17:44:54
einer
Hallo Rudi,
gut das klappt jetzt. Hab aber jetzt festgestellt, dass es mir anfängt die Tabellenblattnamen zu sortieren was es nicht machen soll. Meine Tabellenblätter sind numeriert. Startend mit 1-10 ab 11 ordnet es wieder vorne ein, bei eins.
Kann man das abstellen?
Grüße
Anna
Anzeige

317 Forumthreads zu ähnlichen Themen

Tabelleninhalt in eine andere Arbeitsmappe kopiere
Himmelsbach

Hallo zusammen,
Ich hoffe es kann mir jemand bei meinem Problem weiter helfen, denn ich habe keine Idee wie ich meine Aufgabe automatisieren kann, ansonsten werde ich wohl Stunden damit zubringen müssen Tausende Zellen zu kopieren.
Also zu meiner Aufgabenstellung, reduziert auf 3 Tabell...
10.06.2009 16:57:46
Thread-ID: 1080549
4 Beiträge
Anzeige
Daten in Tabelle einer anderen Arbeitsmappe
Stefan

Hallo,
sorry, aber ich habe schon wieder ein Problem:
Nachfolgender Code wurde mir hier zur Verfügung gestellt und funktioniert auch. Nur hat sich jetzt an der Struktur der Zieltabelle etwas geändert. Private Sub CommandButton1_Click() Dim lRow As Long Dim sRow As Long Dim myWks As Str...
06.04.2011 22:11:52
Thread-ID: 1209357
14 Beiträge
Teildaten aus Tabelle auf ein anderes Blatt
Tobiax

Hallo!
Ich habe eine Datei mit mehreren Sheets: https://www.herber.de/bbs/user/83561.xlsx
Im Sheet "Gesamt" sind chronologisch sortiert Buchungen von 4 Firmen mit je 2 Werten. Es kann auch sein, daß eine Firma mehrere Einträge pro Tag hat oder mal einen Tag nichts hat.
Jede Firma h...
24.01.2013 20:57:49
Thread-ID: 1295911
2 Beiträge
Anzeige
Datenaustausch zwischen zwei Tabellenblättern
Gregy

Hallo liebe Experten,
ich hoffe, mein Problem verständlich schildern zu können.
Aus einer Tabelle (ein Protokoll) wo in Spalte C eine deklaration in Form von A für Aufgabe, B für Beschluss und I für Information steht filtere ich alle Zeilen auf der Suche nach A und schreibe die komplett...
25.01.2017 16:26:57
Thread-ID: 1537344
8 Beiträge
Tabellenwert in eine andere Arbeitsmappe
Schön

Hallo,
im nachfolgenden einmal eine Beispieldatei wie ich mir das vorstelle.
https://www.herber.de/bbs/user/117130.xlsx
Ich möchte automatisch einen Wert aus der einen Arbeitsmappe in einen andere Arbeitsmappe der gleichen Tabelle eingefügt haben. Nur der Wert nicht die Formel.
...
20.10.2017 17:02:34
Thread-ID: 1587059
4 Beiträge
Tabellen in andere Arbeitsmappe kopieren
Alex

hallo,

wir haben zu zweit parallel die gleiche arbeitsmappe bearbeitet, jedoch jeder unter einem eigenen dateinamen. die tabellen sind alle ziemlich miteinander verknüpft. beim abgleichen (sprich hin-und herkopieren der einzelnen tabellen)haben wir nun das problem, dass sich die bezüge...
18.08.2003 10:39:45
Thread-ID: 296116
3 Beiträge
Tabelle in andere Arbeitsmappe verschieben
Jürgen
Hallo VBA-Profis,

wäre schön, wenn mir jemand helfen könnte.
Problem: Ich öffne per Makro eine neue Arbeitsmappe; per InputBox wird diese unter einem Namen abgespeichert. Nun wechsel ich in eine andere Arbeitsmappe und möchte das aktive Tabellenblatt in die neu erstellte Arbeitsmappe an...
15.12.2003 12:42:58
Thread-ID: 352125
11 Beiträge
Datenaustausch zwischen zwei Tabellenblättern
Adam

Hallo Excel-Gemeinde,
ich habe ein kleines Problem (für einen Profi), aber ich scheitere daran. Nun sind auch Schleifen keine wirkliche Stärke von mir.
Folgendes Problem:
Ich habe zwei Tabelenblätter (Nennen wir sie A + B)
Tabellenblatt A enthällt drei Spalten mit wichtigen Dat...
23.09.2019 16:14:24
Thread-ID: 1714353
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
13
1
2
7
3
2
10
7
7
5
5
3
2
2
2
3
1
3
1
4
3
6
3