Argument nicht gefunden

Forumthread: Argument nicht gefunden
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Argument nicht gefunden

13.03.2006 09:37:12

Werner

Hallo zusammen,
mit einem Button in einer Tabelle, lasse ich Daten einfügen und anschlißend sollen die Daten sortiert werden (Spalte H ). Das Makro habe ich aufgezeichnet.
Nun bekomme ich aber bei "DataOption1" immer die Meldung:
Fehler beim Kompilieren
Benantes Argument nicht gefunden.
Range("A1:K65000").Sort Key1:=Range("H2"), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Was habe ich falsch gemacht.
Gruss Werner

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Argument nicht gefunden

13.03.2006 09:53:36

ChrisL
AW: Argument nicht gefunden

13.03.2006 11:28:50

Werner
AW: Argument nicht gefunden

13.03.2006 12:18:27

ChrisL
AW: Argument nicht gefunden

13.03.2006 12:43:15

Werner

AW: Argument nicht gefunden

13.03.2006 09:53:36

ChrisL

Hallo Werner
Wenn es geht einfach weg lassen:
Range("A1:K65000").Sort Key1:=Range("H2"), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Gruss
Chris

AW: Argument nicht gefunden

13.03.2006 11:28:50

Werner

Hallo Chris,
nun bleibt das Makro schon in der Zeile " For Each " stehen.
Range("H2:H65000").Select
Dim Z
For Each Z In Range("H2:H65000").SpecialCells(xlCellTypeConstants, 2)
Z.Value = CDate(Z)
Next
Gruss Werner

AW: Argument nicht gefunden

13.03.2006 12:18:27

ChrisL

Hallo Werner


Sub t()
Dim Z As Range
For Each Z In Range("H2:H" & Range("H65536").End(xlUp).Row).SpecialCells(xlCellTypeConstants)
Z.Value = CDate(Z)
Next Z
End Sub

Gruss
Chris
PS: Range("H2:H65000").Select kannst du weg lassen

AW: Argument nicht gefunden

13.03.2006 12:43:15

Werner

Hallo Chris,
jetzt gehts, danke für Deine Hilfe.
Gruss Werner