Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo Zusammen,

ich habe folgendes Problem zu lösen und komme nicht weiter.
In einer Arbeitsmappe mit mehreren Tabellenblättern möchte ich im Tabelleblatt " Übersicht Rechnungen 2016" den jeweiligen Wert der ff. Tabellenblätter aus Celle G33 in die Spalte C beginnend bei Zelle C10 und ff. einfügen.
Im gleichen Zuge soll auch der Wert aus der Zelle C35 in die Spalte D beginnend bei D10 und ff eingefügt werden.

Zudem möchte ich den Tabellenblättern ein fortlaufender "Name" zugewiesen wird, z.B. FS-2016-001 und ff.

Die Namen der Tabellenblätter werden in der Spalte A, beginnend bei A9, mit folgendem Makro eingefügt:

Sub Seitennamen()
Dim lngSheets As Long
Dim lngWorksheets As Long
Dim lngCharts As Long
Dim i As Long

lngSheets = ThisWorkbook.Sheets.Count
lngWorksheets = ThisWorkbook.Worksheets.Count
lngCharts = ThisWorkbook.Charts.Count

For i = 1 To lngSheets
ThisWorkbook.Sheets("Übersicht Rechnung 2016").Cells(8 + i, 1).value = ThisWorkbook.Sheets(i).Name
Next i

For i = 1 To lngWorksheets
ThisWorkbook.Sheets("Übersicht Rechnung 2016").Cells(8 + i, 1).value = ThisWorkbook.Worksheets(i).Name
Next i

For i = 1 To lngCharts
ThisWorkbook.Sheets("Übersicht Rechnung 2016").Cells(8 + i, 1).value = ThisWorkbook.Charts(i).Name
Next i

End Sub

Vielleicht kann mir jemand helfen. Für jede Hilfe wäre ich sehr dankbar.

Gruß Fidan