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"