Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nummern auflisten

Forumthread: Nummern auflisten

Nummern auflisten
16.03.2005 09:34:20
johfri
hallo,
Habe folgendes problem:
kann per vba ein tabellenblatt kopieren und dieses einfügen. auf jedem tabellenblatt wird eine nummer eingegeben. diese nummern möchte ich am letzten tabllenblatt aufgelistet haben.
eine genauerer darstellung des problems findet man in der angehängten datei.
https://www.herber.de/bbs/user/19716.xls
gruss
johfri
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nummern auflisten
16.03.2005 09:50:15
MichaV
Hi,
zwei mögliche Lösungen:


      
Dim i As Integer
'Werte eintragen, wird nur einmal nach jedem Kopieren ausgeführt
For i = 1 To Sheets.Count - 1 'für alle Blätter, außer dem letzten
  'Zelle B(C,D...):7 in "Auflistung"= Zelle D:8 in jedem Tabellenblatt
  Sheets("Auflistung").Cells(7, 1 + i).Value = Sheets(i).Cells(8, 4).Value
Next i
'oder Formeln eintragen, Werte sind immer aktuell
For i = 1 To Sheets.Count - 1 'für alle Blätter, außer dem letzten
  'Zelle B(C,D...):9 in "Auflistung"= Formel ='Tabellenname'!D8
  Sheets("Auflistung").Cells(9, 1 + i).FormulaLocal = "='" & Sheets(i).Name & "'!D8"
Next i 
Gruß- Micha
PS: Rückmeldung wäre nett
Anzeige
AW: Nummern auflisten
johfri
hallo micha,
funkioniert super, nur ein kleines problem hätte ich noch. ich möchte, dass die kopien wie folgt angeordnet werden: "tabelle2",dann "tabelle2(2)", dann "tabelle2(3)", usw.
es wäre super wenn du mir hier auch noch weiterhelfen könntest.
gruss johfri
AW: Nummern auflisten
16.03.2005 10:32:36
MichaV
Hi,
nimm
wks.Copy before:=Worksheets("Auflistung")
um vor dem Blatt "Auflistung" einzufügen oder
wks.Copy before:=Worksheets(Sheets.Count)
um vor dem letzten Blatt einzufügen (falls Du "Auflistung" mal umbenennst).
Gruß! Micha
Anzeige
AW: Nummern auflisten
16.03.2005 10:50:35
johfri
hallo micha,
danke für den kompetenten rat. du hast mir unglaublich viel weitergeholfen.
DANKE!!!
gruss johfri
Danke für die Rückmeldung ;o) owT
16.03.2005 19:24:50
MichaV
;

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