400 Tabellenblätter durchforsten zum 2.
15.10.2004 14:34:31
Eleni
Habe mal in diesem Forum von Boris ein grandiosen Makro für das Durchforsten von 400 Tabellenblätter bekommen. Jetzt hab ich eine Variante, bei der ich dasselbe Makro abgewandelt anwenden möchte:
In F3 steht ein Datum, dazu gehören Zahlen aus den Zellen P3 bis P12, in F13 das nächste Datum und dazu gehören die Zellen P13 bis P22, dann kommt in F23 das nächste Datum und dazu gehören die Zellen P23 bis P32 usw. Die Datums-Einträge sowie die Einträge aus den dazugehörigen P-Zellen sollen in ein anderes Tabellenblatt nebeneinander kopiert werden. Also F3 steht in B3 und P3 bis P12 stehen in den Zellen C3 bis L3. Da ich wieder viele Tabellenblätter so durchforsten muss, will ich im untenstehenden Makro einfach ein paar Zeilen einfügen, aber es klappt nicht so recht. Vielleicht hat jemand einen guten Tip für mich, wie ich für die P-Zellen das ganze umwandeln kann?
Ciao, Eleni
Sub los_gehts()
Dim C As Range, myWs As Worksheet
Dim wS As Worksheet, fAddr As String, lng As Long
Set wS = Worksheets("Übersicht")
With wS
lng = .[b65536].End(xlUp).Row + 1
For Each myWs In ThisWorkbook.Worksheets
If myWs.Name <> "Übersicht" Then
Set C = myWs.[f:f].Find("*")
If Not C Is Nothing Then
fAddr = C.Address
Do
lng = lng + 1
wS.Cells(lng, 2) = C
wS.Cells(lng, 3) = myWs.Name
Set C = myWs.[f:f].FindNext(C)
Loop While Not C Is Nothing And C.Address <> fAddr
End If
Set C = Nothing
fAddr = ""
End If
Next myWs
End With
wS.Columns(2).NumberFormatLocal = "TT.MM.JJ"
End Sub