Hallo,
wenn ich es richtig interpretiert habe, wird folgende Lösung gesucht:
In den Tabellen mit dn Wochentagsnamen "Mo" - "So" stehen in einem fest gelegtem Bereich Daten, auf die mit einer Formel in einer Übersicht verwiesen werden soll:
1. Generieren von Beispieldaten (Voraussierung: In der Arbeitsmappe existieren Tabellen mit der Bezeichnung "Mo", "Di", "Mi", "Do", "Fr" und "Sa"):
Sub GenerateRandomizeData()
Dim sh As Worksheet
Dim iRw As Integer
For Each sh In ActiveWorkbook.Sheets
If Len(sh.Name) = 2 Then
For iRw = 1 To 200
sh.Cells(iRw + 15, 29).FormulaR1C1 = Rnd(1) * 50
Next
End If
Next
End Sub
2. Übersicht füllen:
Sub CopyDataInMain()
Dim shMain As Worksheet
Dim sh As Worksheet
Dim iRwMain As Integer
Dim iClMain As Integer
Dim iRw As Integer
Set shMain = ActiveWorkbook.Worksheets("Übersicht")
For Each sh In ActiveWorkbook.Sheets
If Len(sh.Name) = 2 Then
iRwMain = 1
iClMain = iClMain + 1
For iRw = 16 To 200 Step 2
shMain.Cells(iRwMain, iClMain).Formula = "= " & sh.Name & "!" & sh.Cells(iRw, 29).Address
iRwMain = iRwMain + 1
Next
End If
Next
End Sub
Diese Routine generiert in der Übersicht im Bereich beginnend von A1 Verweise auf die anderen Tabellen:
z.B.:
A1: =Mo!$A$16
A2: =Mo!$A$18
A3: =Mo!$A$20
B1: =Di!$A$16
B2: =Di!$A$18
B3: =Di!$A$20
VG, BigBen
|