Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
Danke für die Rückmeldung ;o) owT
16.03.2005 19:24:50
MichaV

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige