|
So, ich nochmal. Kommando zurück :)
Ich habe das Skript so hinbekommen, dass es funktioniert. Die Spaltennummerierung musste nur angepasst werden.
Jetzt wird das Datum und die Uhrzeit von Tabelle2 bei Tabelle2 in Spalte5 eingefügt.
Das Skript sieht nun folgendermaßen aus:
Sub AdjustmentData()
Dim wsh As Worksheet, wshSearch As Worksheet
Dim rngSearch As Range
Dim datDate As Date, datDateResult As Date
Dim sGroup As String, sProd As String
Dim rng As Range, rngResult As Range
Set wsh = Tabelle1
Set wshSearch = Tabelle2
Set rngSearch = wshSearch.UsedRange
Application.ScreenUpdating = False
For Each rng In wsh.UsedRange.Rows
If rng.Row > 1 Then
datDate = rng.Cells(1, 1).Value
sProd = rng.Cells(1, 3).Value
If wshSearch.FilterMode Then
rngSearch.AutoFilter
End If
rngSearch.AutoFilter Field:=4, Criteria1:=sProd
rngSearch.AutoFilter Field:=36, Criteria1:="=AA", Operator:=xlOr, Criteria2:="=AB"
For Each rngResult In rngSearch.SpecialCells(xlCellTypeVisible).Rows
If rngResult.Row > 1 Then
datDateResult = rngResult.Cells(1, 46).Value + rngResult.Cells(1, 47).Value
If datDate <= DateAdd("s", 3600, datDateResult) And datDate >= DateAdd("s", -3600, datDateResult) Then
rng.Cells(1, 5).Value = datDateResult
End If
End If
Next
If wshSearch.FilterMode Then
rngSearch.AutoFilter
End If
'VBA.DoEvents
End If
Next
Application.ScreenUpdating = True
End Sub
Jetzt hatte ich die Idee, das ganze Prozedere für die spätere Wiederholbarkeit mit neuen Log-Dateien etwas zu vereinfachen. Hierzu will ich zunächst die Log-Files nicht mehr zusammen in eine Datei kopieren. Somit wird aus Tabelle1 die Datei1 und aus Tabelle2 die Datei2. Das VBA-Skript soll in einer dritten Datei sein. Dann kann ich die Log-Files in den Ordner kopieren, und das Skript ausführen. Dafür müsste das Skript soweit geändert werden, dass zuerst Datei1 komplett in Datei3 kopiert wird und diese dann mit Datei2 verglichen wird. Die Übereinstimmungen werden dann wiederum bei Datei3 in Spalte5 eingefügt. Ich hoffe, dass ich alles verständlich erklärt habe und bin erneut dankbar für jede Hilfe. Gruß, Flo |