Sortieren eines nicht aktiven Blattes

07/10/2007 - 12:45 von Reiner | Report spam
Hallo zusammen,
ich sortiere über ein Makro einen bestimmten Bereich innerhalb eines
Blattes.
Klappt auch wie es soll, rufe ich diesen Makro über ein anderes auf in
einem anderen Blatt,
bleibt das Mabro stehen mit Laufzeitfehler 1004.
Kann man ein nicht aktives blatt nicht sortieren?
Auszug!

Set Bereich = Worksheets("Gesamt").Range("B3:B29")
Bereich = ""
Ende = Quelle_1.Cells(Rows.Count, 3).End(xlUp).Row
Firma = Quelle_1.Cells(2, 3).Value
Ziel.Cells(3, 2).Value = Firma
A = 4
For I = 3 To Ende
If Application.WorksheetFunction.CountIf(Quelle_1.Range("C2:C"
& I - 1), Quelle_1.Cells(I, 3).Value) = 0 Then
Firma = Quelle_1.Cells(I, 3).Value
Ziel.Cells(A, 2).Value = Firma
A = A + 1
End If
Next I
Bereich.Sort Key1:=Range("B3"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

Danke im voraus
Gruß
Reiner
 

Lesen sie die antworten

#1 Hajo_Zi
07/10/2007 - 14:00 | Warnen spam
Hallo Reiner,

ich habe das jetzt nicht nachgebaut.
With Worksheets("andere Tabelle")
Bereich.Sort Key1:=.Range("B3"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End With

Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate und Excel Version2007
http://Hajo-Excel.de/


"Reiner" wrote:

Hallo zusammen,
ich sortiere über ein Makro einen bestimmten Bereich innerhalb eines
Blattes.
Klappt auch wie es soll, rufe ich diesen Makro über ein anderes auf in
einem anderen Blatt,
bleibt das Mabro stehen mit Laufzeitfehler 1004.
Kann man ein nicht aktives blatt nicht sortieren?
Auszug!

Set Bereich = Worksheets("Gesamt").Range("B3:B29")
Bereich = ""
Ende = Quelle_1.Cells(Rows.Count, 3).End(xlUp).Row
Firma = Quelle_1.Cells(2, 3).Value
Ziel.Cells(3, 2).Value = Firma
A = 4
For I = 3 To Ende
If Application.WorksheetFunction.CountIf(Quelle_1.Range("C2:C"
& I - 1), Quelle_1.Cells(I, 3).Value) = 0 Then
Firma = Quelle_1.Cells(I, 3).Value
Ziel.Cells(A, 2).Value = Firma
A = A + 1
End If
Next I
Bereich.Sort Key1:=Range("B3"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

Danke im voraus
Gruß
Reiner


Ähnliche fragen