Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Laufzeitfehler 1004 und ich finde ihn nicht
#1
Hallo zusammen!

Folgender Code bereitet mir gerade Sorgen (Fehler 1004 (AutoFilter-Methode des Range-Objektes)):
Code:
Private Sub UserForm_Initialize()

Sheets("WS_Wohn A").Select
Dim Zelle As Range, arrTemp(), tmpCounter As Long

'+--------------------------------------------------------------------------------------------------+
'|  Filtern über die Autifilter-Option, Filtert Spalte L, M und G                                   |
'+--------------------------------------------------------------------------------------------------+
'|  ErsteZelle      = 1. Zelle der zu filternden Datenbank.                                         |
'|  Spalte          = Spaltennummer der Datenbank, in welchem sich das Filterkriterium befindet.    |
'|  FilterKriterium = Filterkriterium nach welcher in der angegebenen Spalte gefiltert werden soll  |
'+--------------------------------------------------------------------------------------------------+
Range("A3").AutoFilter Field:=12, Criteria1:="<>"
Range("A3").AutoFilter Field:=13, Criteria1:="="
Range("A3").AutoFilter Field:=7, Criteria1:="="


'+---------------------------------------------------------------------------------------------+
'|  Sortiert Spalte H                                                                          |
'+---------------------------------------------------------------------------------------------+
Columns("H:H").Select
ActiveWorkbook.Worksheets("WS_Wohn A").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("WS_Wohn A").AutoFilter.Sort.SortFields.Add Key:= _
Range("H2:H10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

    With ActiveWorkbook.Worksheets("WS_Wohn A").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

'+---------------------------------------------------------------------------------------------+
'|  Schreibt die gefilterten und sortierten Zeilen in eine ListBox                             |
'+---------------------------------------------------------------------------------------------+

    For Each Zelle In Intersect(Tabelle2.UsedRange.SpecialCells(xlCellTypeVisible), ThisWorkbook.Worksheets("WS_Wohn A").Columns(1))
        ReDim Preserve arrTemp(tmpCounter)
        arrTemp(tmpCounter) = Zelle.Row
        tmpCounter = tmpCounter + 1
    Next


For tmpCounter = 1 To UBound(arrTemp)
   With UserForm99.ListBox1

      .AddItem Tabelle2.Cells(arrTemp(tmpCounter), 1)
      .List(.ListCount - 1, 1) = Tabelle2.Cells(arrTemp(tmpCounter), 2)
      .List(.ListCount - 1, 2) = Tabelle2.Cells(arrTemp(tmpCounter), 3)
      .List(.ListCount - 1, 3) = Tabelle2.Cells(arrTemp(tmpCounter), 4)
      .List(.ListCount - 1, 4) = Tabelle2.Cells(arrTemp(tmpCounter), 8)
      .List(.ListCount - 1, 5) = Tabelle2.Cells(arrTemp(tmpCounter), 7)
   End With
Next
End Sub

In einem Arbeitsblatt funktioniert er, im anderen nicht. Die Angaben der Tabellenblätter habe ich schon geprüft. Hab ich noch was übersehen, was aus dem Code offensichtlich ist?

Danke und schönen Abend Euch
Grüße
Sandor
Antworten Top
#2
Hallo Sandor,

vier Fragen:
- sind alle Blätter gleich aufgebaut?
- sind in allen Blättern in Zeile 3 ausreichend Daten?
- ist in allen Blättern der gleiche Ausgangszustand, z.B. Autofilter aus?
- in welcher codezeile kommt der Fehler?
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Nabend André,

Punkt 3 war der Übeltäter, da war noch ein Filter aktiv. Danke!!!

Grüße
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste