Thema Datum  Von Nutzer Rating
Antwort
18.05.2011 21:41:27 Chris
NotSolved
18.05.2011 21:42:29 Chris
NotSolved
Rot Mein Code fuktioniert nicht
 18.05.2011 22:28:09 TheQuest
NotSolved
18.05.2011 22:28:09 TheQuest
NotSolved
21.05.2011 14:21:49 Chris
NotSolved
21.05.2011 14:52:39 janpaet
Solved

Ansicht des Beitrags:
Von:
TheQuest		 Datum:
18.05.2011 22:28:09		 Views:
866		 Rating:
     
Antwort:
  Ja
Thema:
Mein Code fuktioniert nicht

Hi Chris,

ohne jetzt  deine Tabelle nachgebastelt zu haben empfehle ich Dir folgendes:

With Sheets("Packeinheit 28.04.11 10.00 Uhr")
    Zeilemax = .Range("A1048576").End(xlUp).Row
    .Colums(1).Sort Key1:=Range("A1"), Order:=xlAscending, Header:=ylGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    For Zeile = Zeilemax To 2 Step -1
        If .Cells(Zeile, 1).Value = .Cells(Zeile - 1, 1).Value Then .Rows(Zeile).Delete
        'End If <<< WEG!
    Next Zeile
End With

 

Erklärung: Du schreibst die komplette IF-Anweisung in eine Zeile, demnach benötigst du kein "End If". Demnach: Schreibst du ein End-If, wo ist dann das zugehörige "If"? Ergebnis: "End if ohne If-Block" ;-)

 

Gruß TheQuest

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
18.05.2011 21:41:27 Chris
NotSolved
18.05.2011 21:42:29 Chris
NotSolved
Rot Mein Code fuktioniert nicht
 18.05.2011 22:28:09 TheQuest
NotSolved
18.05.2011 22:28:09 TheQuest
NotSolved
21.05.2011 14:21:49 Chris
NotSolved
21.05.2011 14:52:39 janpaet
Solved