Hallo Leute,
ich hab folgendes Problem:
Ich möchte Daten, welche ich automatisiert in Excel schreibe aus VB.Net anschließend sortieren lassen. Hierzu habe ich mir einfach mal ein Makro gemacht und mir den Code angesehen. Der Code sieht folgendermaßen aus:
.Rows("3:10").Select()
.ActiveWorkbook.Worksheets("Rohdaten gesamt").Sort.SortFields.Clear()
.ActiveWorkbook.Worksheets("Rohdaten gesamt").Sort.SortFields.Add(Key:=Range( _
"B3:B10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal)
With .ActiveWorkbook.Worksheets("Rohdaten gesamt").Sort
.SetRange(Range("A2:Y10"))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply()
End With
Hier habe ich dann ein Problem. An zwei Stellen im Code (fett markiert) tritt dann aus Problem auf, dass "Range" nicht deklariert ist. Was kann ich dagegegen unternehmen?
Vielen Dank schon mal!
Chris
ich hab folgendes Problem:
Ich möchte Daten, welche ich automatisiert in Excel schreibe aus VB.Net anschließend sortieren lassen. Hierzu habe ich mir einfach mal ein Makro gemacht und mir den Code angesehen. Der Code sieht folgendermaßen aus:
.Rows("3:10").Select()
.ActiveWorkbook.Worksheets("Rohdaten gesamt").Sort.SortFields.Clear()
.ActiveWorkbook.Worksheets("Rohdaten gesamt").Sort.SortFields.Add(Key:=Range( _
"B3:B10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal)
With .ActiveWorkbook.Worksheets("Rohdaten gesamt").Sort
.SetRange(Range("A2:Y10"))
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply()
End With
Hier habe ich dann ein Problem. An zwei Stellen im Code (fett markiert) tritt dann aus Problem auf, dass "Range" nicht deklariert ist. Was kann ich dagegegen unternehmen?
Vielen Dank schon mal!
Chris