sortere i en markeret kolonne/række

--->    xlApp.Sheets("Ark1")..Range(Cells(1, 1), Cells(3, 1)).Sort Key1:=Range("A1"), Order1:=xlAscending

manglede du ikke arknavnet

xlApp.Sheets("Ark1").Range(Cells(1, 1), Cells(3, 1)).Sort Key1:=Range("A1"), Order1:=xlAscending

der var et punktum formeget

nej... det gør desværre ikke nogen forskel.... stadig samme fejl:

Run-time error '1004': Application-defined or object-defined error

xlApp.Sheets("Ark1").Range(Cells(1, 1), Cells(3, 1)).Sort Key1:=xlApp.Sheets("Ark1").Range("A1"), Order1:=xlAscending

Prøv lige at forklare hvad det er du ønsker at lave, din kode er ikke entydig.

her er koden som jeg tror den skal se ud, hvis du ønsker at tage alle data i de to første kolonner i kunderegister-arket, sammenføje disse, indsætte i et nyt ark for sortering og efter sortering fylde dem i en listbox

Dim xlApp As Object
  Dim xlBook As Object
  Dim xlKundeark As Object
  Dim xlNytArk As Object
  Dim antal As Long, tal As Long, navn As String, privat As Boolean, faerdig As Boolean
  Set xlApp = CreateObject("Excel.Application")
  xlApp.Visible = False

  Set xlBook = xlApp.Workbooks.Open("c:\FO\data.xls")
  Set xlNytArk = xlBook.Sheets.Add
  Set xlKundeark = xlBook.Sheets("kunderegister-privat")
 
  If privat = True Then
      faerdig = False
      antal = 1
      Do Until faerdig = True
        antal = antal + 1
        navn = xlKundeark.Cells(antal, 1) & ", " & xlKundeark.Cells(antal, 2)
        If navn = ", " Then faerdig = True
        xlNytArk.Cells(antal - 1, 1) = navn
      Loop
      With xlNytArk
        .Range(.Cells(1, 1), .Cells(antal - 1, 1)).Sort Key1:=.Range("A1"), Order1:=xlAscending
      End With
      For tal = 1 To antal - 1
        formfindkunde.kunder.AddItem (xlNytArk.Cells(tal, 1))
      Next tal
  End If
  xlBook.Close savechanges:=False

  Set xlNytArk = Nothing
  Set xlKundeark = Nothing
  Set xlBook = Nothing
  xlApp.Quit
  Set xlApp = Nothing

du har ret.... det er det jeg vil....

jeg tjekker lige koden og vender tilbage senere...

det virker perfekt... smider du er svar?

ok :-)