title image


Smiley Geklauter Quelltext von "pefeu" etwas umgebaut, funkt. noch nicht ganz?
Hallo zusammen,



ich möchte mir Daten in Excel sortieren, hab dazu mal im Archiv gestöbert und bin auf einen super Beitrag von "pefeu" gestoßen. Hab diesen etwas umgebaut --> So:



Private Sub CommandButton3_Click()



Dim oApp As Object

Dim rs As DAO.Recordset, i As Long, xlWs As Object, xlWb As Object

Dim AktZeile As Variant



Dim lZeile As Long

Set oApp = CreateObject("Excel.Application")

Set xlWb = oApp.Workbooks.Open("g:\Wartung\" & TextBox1 & ".xls")

Set xlWs = xlWb.Worksheets(TextBox1.Text)

oApp.Visible = True

xlWs.Select

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

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

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

Next lZeile

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

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

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

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



End Sub



Das Ding tut nur, wenn ich in der selben Tabelle sortiere, in der ich mich befinde. Wer hat mir denn da einen heißen Tipp??



Vielen Dank im voraus.



Gruß

Trabbi



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: