Hallo Leute,
eine Datei enthält für jeden ab „Jan.2004“ vergangenen Monat jeweils 1 Tabellenblatt mit Wettermessdaten; das Tabellenblatt ist mit dem Namen des jeweiligen Monats und der zugehörigen Jahreszahl eindeutig beschriftet.
Mit cboMonat auf einer UF wird ein beliebiger Monat für Auswertungen ausgewählt und dessen Inhalt in ein separates Tabellenblatt kopiert.
Falls der Monat „Mai 2006“ gewählt wurde und die Auswertung soll monatsübergreifend sein, müssen entweder -zusätzlich- die Daten des vorherigen Monats April „2006“ vor den Datensätzen des Mai „2006“ bzw. die Daten des „Juni 2006“ nach den „Mai 2006“-Daten eingefügt werden. Zur Zeit erfolgt diese Auswahl manuell.
Mit:
Sheets.Add after:=Worksheets(Worksheets.Count)
Range("A1").Select
For i = 1 To ActiveWorkbook.Worksheets.Count
Cells(i, 1).Value = i
Cells(i, 2).Value = Sheets(i).Name
Next i
können alle Tabellenblätter gezählt und mit laufender Blattnummer und -namen auf einem neu eingefügten Tabellenblatt gelistet werden. „Jan. 2004“ entspricht Blattnr. „1“; „Jan. 2005“ entspricht Blattnr. „13“, und „Mai 2006“ entspricht Blattnr. „29“. Somit ist jedem Tabellenblatt eine laufende Nummer zugeordnet.
Wie ist es möglich, diese laufende Nummer („29“) dem mit cboMonat ausgewählten Tabellenblatt (Mai 2006) zuzuordnen um anschließend den Inhalt des vorherigen („28“ - „April 2006“) oder des nachfolgenden Tabellenblatts („30“ - „Juni 2006“) zu kopieren und vor bzw. nach den „Mai 2006“-Daten einzufügen?
Kann man diesen Zusammenhang überhaupt herstellen?
mfg
reiner