Makro Fehler unter Office 2000
wafi
kleines Problem mit einem Makro.
Unter Office 2003 läuft das Fehlerfrei, nur jetzt sollte es auch unter Office 2000 verwendet werden
und da gibts einen Fehler beim sortieren.
Kann sich das jemand bitte kurz ansehen.
Vielen Dank
Private Sub CommandButton1_Click()
Call KennzeichenAuslesen
End Sub
Sub KennzeichenAuslesen()
b = 6 'Zeilenbeginn wo geschrieben
For a = 1 To 200 'lesen von bis
If Workbooks("Kennzeichen Aktualisieren.xls").Worksheets("LKW_Verk").Range("A" & a) = "D" Then ' von wo ausgelesen wird
b = b + 1
' Teil 1 SchreibRoutine - Teil 2 LeseRoutine
Workbooks("Kennzeichen Aktualisieren.xls").Worksheets("LKW_DISPO").Range("C" & b) = Workbooks("Kennzeichen Aktualisieren.xls").Worksheets("LKW_Verk").Range("B" & a) 'LKW Kennz
Workbooks("Kennzeichen Aktualisieren.xls").Worksheets("LKW_DISPO").Range("D" & b) = Workbooks("Kennzeichen Aktualisieren.xls").Worksheets("LKW_Verk").Range("C" & a) 'LKW Typ
'Workbooks("Datei1.xls").Worksheets("LKW_DISPO").Range("G" & b) = Workbooks("Datei1.xls").Worksheets("Hänger_Verk").Range("B" & a)
'Workbooks("Datei1.xls").Worksheets("LKW_DISPO").Range("B" & b) = Workbooks("Datei1.xls").Worksheets("LKW_Verk").Range("B" & a)
End If
Next a
b = 6
For a = 1 To 100 'lesen von bis
If Workbooks("Kennzeichen Aktualisieren.xls").Worksheets("Hänger_Verk").Range("A" & a) = "D" Then ' von wo ausgelesen wird
b = b + 1
' Teil 1 SchreibRoutine - Teil 2 LeseRoutine
'Workbooks("Datei1.xls").Worksheets("LKW_DISPO").Range("C" & b) = Workbooks("Datei1.xls").Worksheets("LKW_Verk").Range("B" & a) 'LKW Kennz
'Workbooks("Datei1.xls").Worksheets("LKW_DISPO").Range("D" & b) = Workbooks("Datei1.xls").Worksheets("LKW_Verk").Range("C" & a) 'LKW Typ
Workbooks("Kennzeichen Aktualisieren.xls").Worksheets("LKW_DISPO").Range("G" & b) = Workbooks("Kennzeichen Aktualisieren.xls").Worksheets("Hänger_Verk").Range("B" & a)
'Workbooks("Datei1.xls").Worksheets("LKW_DISPO").Range("B" & b) = Workbooks("Datei1.xls").Worksheets("LKW_Verk").Range("B" & a)
End If
Next a
'Sortieren ab G7
Range("G7").Select
Range(Selection, Selection.End(xlDown)).Select
******** Ab hier Debug 104 *************
Selection.Sort Key1:=Range("G7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub