Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Fehler im Code!?

Fehler im Code!?
25.01.2018 13:45:42
Alex
Moin!
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler im Code!?
25.01.2018 13:46:29
Alex
Dick gedruckt ist die Stelle, an der der Fehler auftritt.
AW: Fehler im Code!?
25.01.2018 13:53:04
Rudi
Hallo,
ActiveWorkbook.Worksheets("Blatt1").Sort.SortFields.Add Key:=ActiveWorkbook.Worksheets("Blatt1").Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

bzw. besser
  With ActiveWorkbook.Worksheets("Blatt1")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
With .Sort
.SetRange Range("A1:BZ10000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With

Gruß
Rudi
Anzeige
AW: Fehler im Code!?
25.01.2018 14:01:44
Alex
Funktioniert! Vielen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige