Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
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
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Namen ausgewählter Tabellen ermitteln

Namen ausgewählter Tabellen ermitteln
27.12.2004 21:26:23
Fritz
Hallo VBA-Spezialisten,
komme wieder einmal alleine nicht zurecht, da VBA-Kenntnisse erforderlich sind und benötige deshalb Hilfe.
In einer Arbeitsmappe habe ich u.a. auch Tabellenblätter, deren Namen (Bezeichnung) lediglich aus einer Zahl besteht, z.B. "1", "2", "3" usw.
Es sind jedoch nicht immer dieselben Zahlen und die niedrigste Zahl ist auch nicht zwangsläufig die 1.
Ich würde gerne ein Makro haben, das beim Aktivieren der Tabelle 1 immer prüft, welche solcher Tabellen (Tabellen, deren Bezeichnung aus lediglich einer Zahl besteht) die Datei (aktuell) enthält und dann die Namen dieser Tabellen (also die Zahlen) aufsteigend in die Zeile 5 der "Tabelle1" einträgt (niedrigste Zahl in A5, die nächst höhere in B5 usw.
Wäre toll, wenn ihr mir bei der Umsetzung meines Vorhabens helfen könnt.
Vielen Dank im Voraus.
Gruß
Fritz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namen ausgewählter Tabellen ermitteln
27.12.2004 22:09:51
Gert
Hallo Fritz,
mit "Services" ---&gt"Excel-Recherche" ---&gt Inhaltsverzeichnis eintragen,
findest Du genug Beispiele.
Such Dir eins aus.
mfg
Gert
AW: Namen ausgewählter Tabellen ermitteln
Beni
Halli Fritz,
Gruss Beni

Private Sub Worksheet_Activate()
Rows(5).ClearContents
For sh = 1 To Sheets.Count
If Len(Sheets(sh).Name) = 1 Then
lc = Cells(5, Columns.Count).End(xlToLeft).Column + 1
If Cells(5, 1) = "" Then lc = 1
Cells(5, lc) = Sheets(sh).Name
End If
Next sh
End Sub

AW: Namen ausgewählter Tabellen ermitteln
Fritz
Hallo Beni,
super, funktioniert wie gewünscht.
Vielen Dank!
Schönen Abend noch
Fritz
Anzeige
AW: Namen ausgewählter Tabellen ermitteln
PeterW
Hallo Beni,
warum ermittelst du in der Schleife immer die letzte belegte Spalte in Zeile 5? Wenn du am Anfang des Codes in Zeile 5 alle Inhalte löschst dürfte die erste freie Spalte die 1 sein und sich dann mit jedem neuen Eintrag um 1 erhöhen.

Private Sub Worksheet_Activate()
Dim sh As Integer
Dim lc As Integer
Rows(5).ClearContents
lc = 1
For sh = 1 To Sheets.Count
If Len(Sheets(sh).Name) = 1 Then
Cells(5, lc) = Sheets(sh).Name
lc = lc + 1
End If
Next sh
End Sub

Gruß
Peter

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige