Thema Datum  Von Nutzer Rating
Antwort
Rot Mein Code fuktioniert nicht
 18.05.2011 21:41:27 Chris
NotSolved
18.05.2011 21:42:29 Chris
NotSolved
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:
Chris		 Datum:
18.05.2011 21:41:27		 Views:
1789		 Rating:
     
Antwort:
  Ja
Thema:
Mein Code fuktioniert nicht

Hey Leute,

ich habe ein kleines Problem mit diesem Programm. Ich weiß ehrlich gesagt nicht, wo hier der Fehler Liegt.

Dieses Prog soll die Zeilen Sortieren und dann gegebenfalls doppelte Zeilen Löschen

Hier wird immer der Fehler: "End if ohne If-Block"

Sub DoppelteZeilenEntfernen()
 Dim Zeile As Integer
 Dim Zeilemax As Integer

  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
   
  Next Zeile

  End With
 
End Sub

 

 

 

Könnt ihr mir helfen?

 

Gruß Chris

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 Mein Code fuktioniert nicht
 18.05.2011 21:41:27 Chris
NotSolved
18.05.2011 21:42:29 Chris
NotSolved
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