For Schleife wird nicht Stückweise ausgeführt
14.11.2019 06:29:31
Hendrik
ich habe folgendes Problem: Ich habe eine CSV Logdatei, mit DATUM;ZUSTAND(+,-);FEHLER dort möchte ich Fehler, welche in einer Fehlertabelle stehen filtern und derern Fehlerdauer berechnen.
Dazu nutze ich Autofilter mit dem "Fehlerarray". Hier soll jeder Fehler einzeln gesucht werden, in die Berechnung Tabelle kopiert und die Ergebnisse aus der Berechnungstabelle in eine "Zwischendatenbank" kopieren.
Wenn ich einen Fehler als String in den Autofilter schreibe, klappt das auch soweit (Außer das die Fehler in der "Zwischendatenbank" nicht hinter die letzte Zeile angehangen werden....)
Aber sobald ich die For-Schleife nutzen möchte um alle Fehler aus dem Array zu bearbeiten macht er leider nicht. Ich sehe lediglich am Ende, dass im Autofilter in Excel der letzte Fehler aus dem Array eingetragen ist. Aber ich konnte keine Datengenerieren...
Was jemand vielleicht woran ist liegt?
Public Sub Sortieren()
Dim Bereich As Range
Dim intRow As Integer
Dim letztezeile As Integer
Dim letztezeile2 As Integer
Call FehlerArrayanlegen
Call CSV_importieren
letztezeile = Worksheets("FehlerTabelle").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For intRow = 1 To letztezeile
Set Bereich = Worksheets("Alarme").Range("A1:D15000")
Bereich.AutoFilter Field:=3, Criteria1:=FehlerTabelle(intRow, 1)
Worksheets("Alarme").Range("$A2:$A10000").Copy _
Destination:=Worksheets("Berechnung").Range("A2")
Worksheets("Berechnung").Range("F2").Value = FehlerTabelle(intRow, 1)
letztezeile2 = Worksheets("Zwischendatenbank").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Worksheets("Berechnung").Range("D2").Copy
Worksheets("Zwischendatenbank").Cells(intRow, 1).PasteSpecial xlPasteValues
Worksheets("Berechnung").Range("E2").Copy
Worksheets("Zwischendatenbank").Cells(intRow, 2).PasteSpecial xlPasteValues
Worksheets("Berechnung").Range("F2").Copy
Worksheets("Zwischendatenbank").Cells(intRow, 3).PasteSpecial xlPasteValues
Next intRow
End Sub