Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 13 Typen unverträglich
 09.03.2017 15:45:36 Peter
NotSolved
09.03.2017 19:14:44 Mackie
NotSolved
13.03.2017 14:15:11 Peter
NotSolved
13.03.2017 17:09:13 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Peter		 Datum:
09.03.2017 15:45:36		 Views:
1573		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 13 Typen unverträglich

Hallo zusammen 

Sub SchwarzeListeBe()

Dim i As Long, u As Long
Dim oDaten() As Variant

With ThisWorkbook.Worksheets("Tabelle2")
    oDaten = Application.Transpose(.Range(.[A2], .Cells(Rows.Count, "A").End(xlUp))) '*************Hier kommt der Fehler*************
End With

With ThisWorkbook.Worksheets("Tabelle1")
For i = .Cells(.Rows.Count, 3).End(xlUp).Row To 2 Step -1
    For u = LBound(oDaten) To UBound(oDaten)
        If Cells(i, 3) = oDaten(u) Then Rows(i).Delete
    Next u
Next i
End With

End Sub

Ziel ist es: Alles was in Tabelle2 in Spalte A von 2 bis Ende wird mit den Werten in Tabelle1 verglichen (Spalte3) -> sollte eine Übereinstimmung erfolgen, wird die Zeile gelöscht

Jedoch weiß ich nicht, wie ich den Fehler beheben kann.

Peter

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 13 Typen unverträglich
 09.03.2017 15:45:36 Peter
NotSolved
09.03.2017 19:14:44 Mackie
NotSolved
13.03.2017 14:15:11 Peter
NotSolved
13.03.2017 17:09:13 Mackie
NotSolved