title image


Smiley Du solltest dann auf das Sheet-Objekt verweisen ...
Hallo Trabbi,









xlWs.Select

xlWs.Columns("A:A").Insert Shift:=xlToRight

For lZeile = 1 To xlWs.Range("D65536").End(xlUp).Row

  xlWs.Range("A" & lZeile).Value = xlWs.Range("B" & lZeile).Value

Next lZeile

xlWs.Range("A1:D" & xlWs.Range("A65536").End(xlUp).Row).Sort _

  Key1:=xlWs.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

  xlWs.Columns("A:A").Delete Shift:=xlToLeft





Code eingefügt mit Syntaxhighlighter 4.0







Ohne explizite Angabe des dazugehörigen Objekts beziehen sich sich sonst alle Aktionen immer auf das gerade in XL aktive Objekt. Ist aber ein immer wieder gern gemachter Fehler ;-)



Gruss
scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: