Betimmte Werte aus mehreren Tabellenblättern
04.11.2016 11:05:59
Fidan
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
Anzeige