Office: Auslesen und niederschreiben der Tabellenblätter

Hallo liebes Forum,

such eine Lösung für mein kleines Problemchen:

Mir geht es um das auslesen der Tabellenblätter in einer Excel-Datei (Mappe). Diese müssen aber in der gleichen Mappe, in einem bestimmten Tabellenblatt niedergeschrieben werden und zwar untereinander.

Kann mir jemand helfen?

Vielen Dank im Voraus

Ag.man

 

Habe jetzt die Lösung durch ein anderes Forum (Office-loesung.de) bekommen:

Sub TabellenNamen()

'Auswertetabelle erstellen

ActiveSheet.Name = "Tabelle2"

With ActiveSheet
For i = 1 To Worksheets.Count ' Schleife über alle Tabellen
If Worksheets(i).Name <> "Tabelle2" Then 'Bedingung: nur die anderen Tabellennamen
.Cells(i, 1).Value = Worksheets(i).Name ' Tabellennamen in Spalte A auflisten
End If
Next
End With

End Sub


Vielen Dank für die Hilfe

Ag.man

 

Hi,

Code:

Sub Tabellenblatter()
    Dim lngZeile As Long
    With Worksheets("Tabelle1")
        For lngZeile = 1 To ThisWorkbook.Worksheets.Count
            .Cells(lngZeile, 1) = Worksheets(lngZeile).Name
        Next lngZeile
    End With
End Sub

Aufgelistet wird in Tabelle1, Spalte A - entsprechend anpassen.

Bis später,
Karin

 

Hallo,

das Auflisten der Arbeitsblätter funktioniert auch ohne VBA-Makro, wie beiliegende Excel-Datei zeigt.
Im Arbeitsblatt 'Tabelle1' im Bereich G15:G31 bzw. G9:M9 können maximal 17 bzw. 7 Arbeitsblätter aufgelistet werden. Diese Bereiche können beliebig vergrößert werden.
Das Ganze funktioniert mittels eines benutzerdef. Namens (=ArbMappe), dessen Innenleben aus einer Excel4-Makrofunktion besteht (=ARBEITSMAPPE.ZUORDNEN(Tabelle1!D4) , sofern die aktive Zelle sich gerade in E4 befindet).

So bequem diese Methode ist (sofern man das dazugehörige Handbuch noch hat), so muss ich doch darauf hinweisen, dass Microsoft bereits angekündigt hat, dass Excel2010 die letzte Version ist, die das unterstützt.

Ich habe als Demo einen weiteren benutz.def. Namen (=ArbBer) eingefügt.

 

Hallo Karin,
Hallo Anton,

danke für die Hilfe!

Anton dein Lösungsvorschlag erscheint mir ein wenig zu kompliziert. Und da die Mappe von mehreren Leuten bearbeitet wird, denke ich, dass man mit dem VBA-Code besser fährt.

In meiner Mappe sind auch mehr als 60 Tabellen drin...

Aber generell habe ich im Nachgang noch festgestellt, dass beim VBA-Code von Karin, der gut funktioniert, eine Verknüpfung zu den jeweiligen Tabellen sinnvoll wäre. Wenn in der Tabelle1 die Gliederung erscheint, z.B. in der Spalte A oder B - spielt keine Rolle, auch gleichzeit eine Verknüpfung (Hyperlink) zu der jeweiligen Tabelle erscheint. Damit man einfach mit einem Klick auf die entsprechende Tabelle kommt.

Andererseits sind die Tabellen soweit eindeutig und mit Nr. benannt, so dass man in der Leiste nach rechts zu scrollen braucht.

Sind Verknüpfungen im VBA-Code realisierbar?

Danke nochmals für nette Hilfe!

Ag.man

 

Hi,

dazu musst du den Code nur um diese Zeile ergänzen:

Code:

 .Cells(lngZeile, 1).Hyperlinks.Add Anchor:=.Cells(lngZeile, 1), Address:="", _
    SubAddress:=Worksheets(lngZeile).Name & "!A1"

Es wird immer in Zelle A1 des betreffenden Tabelelnblattes gesprungen.

Bis später,
Karin

 

Its great, it works fine!

Ich würde Jahre brauchen, um einen solchen Code zu schreiben. Das höchste der Gefühle ist bei mir die MessageBox.
Das Forum ist ein Schatz und die Helfer alle Schätzchen :) Danke Karin!

Ein RIESENDANKESCHÖN

Alles Gute kommt aus Sachsen ;)

Ag.man

 

Hallo again,

ich habe noch festgestellt, wenn man in dem Tabellennamen Leerzeichen oder "-"Zeichen hat funktioniert die Verknüpfung nicht (Fehlermeldung).

Dann muss man den Namen entsprechend bearbeiten und den Makro nochmal ausführen. Evtl. auch die Datei neu laden.

Wie man den Code über VBA noch verbessern kann, werden die Profis sagen können.

Liebe Grüße

Ag.man