Nummern auflisten

Bild

Betrifft: Nummern auflisten
von: johfri
Geschrieben am: 16.03.2005 09:34:20
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

Bild

Betrifft: AW: Nummern auflisten
von: MichaV
Geschrieben am: 16.03.2005 09:50:15
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 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß- Micha
PS: Rückmeldung wäre nett
Bild

Betrifft: AW: Nummern auflisten
von: johfri
Geschrieben am: 16.03.2005 10:20:30
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
Bild

Betrifft: AW: Nummern auflisten
von: MichaV
Geschrieben am: 16.03.2005 10:32:36
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
Bild

Betrifft: AW: Nummern auflisten
von: johfri
Geschrieben am: 16.03.2005 10:50:35
hallo micha,
danke für den kompetenten rat. du hast mir unglaublich viel weitergeholfen.
DANKE!!!
gruss johfri
Bild

Betrifft: Danke für die Rückmeldung ;o) owT
von: MichaV
Geschrieben am: 16.03.2005 19:24:50

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nummern auflisten"