Mir wird bei diesem Code folgender Fehler angezeigt:
Objektvariable oder With-Blockvariable nicht festgelegt.
Vorher lief der Code schon zig Mal durch. Fehler tritt jetzt auf einmal auf. Woran kann das liegen? Verstehe es nicht!?
'Kommentar
With Tabelle14
letzteReihe = .Range("A30000").End(xlUp).Row
letzteReihe = letzteReihe + 2
.Range("A" & letzteReihe).Value = "XYZ"
.Range("A" & letzteReihe & ":H" & letzteReihe).Interior.ColorIndex = 22
letzteReihe = letzteReihe + 1
Tabelle5.Activate
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Tabelle5.Range("A1").AutoFilter Field:=19, Criteria1:="0,00"
Tabelle5.Range("A1").AutoFilter Field:=18, Criteria1:="0,00"
Tabelle5.Range("A1").AutoFilter Field:=14, Criteria1:=Array("Hallo", "Hallo2"), Operator:=xlFilterValues
'sortieren
ActiveWorkbook.Worksheets("Blatt1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Blatt1").Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Blatt1").Sort
.SetRange Range("A1:BZ10000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Tabelle5.Range("A:A,B:B,C:C").Copy Destination:=.Range("A" & letzteReihe)
Tabelle5.Range("G:G").Copy Destination:=.Range("D" & letzteReihe)
Tabelle5.Range("F:F").Copy Destination:=.Range("E" & letzteReihe)
Tabelle5.Range("N:N,R:R,S:S").Copy Destination:=.Range("F" & letzteReihe)
End With
VG, Alex