Problem beim markieren von Zellen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Problem beim markieren von Zellen
von: Tobias
Geschrieben am: 04.11.2003 09:02:42

Hi @all!

Mein problem liegt darin, dass es zur Fehlermeldung kommt "select method of range class failed"an der Stelle !!:

Public Sub sheet_kopieren()
Sheets("Pipeline").Select
Sheets("Pipeline").Copy Before:=Sheets(3)
Sheets("Pipeline (2)").Select
Sheets("Pipeline (2)").Name = "Direktgeschäft nach OO"
End Sub

Public Sub markieren_sortieren()
Sheets("Direktgeschäft nach OO").Select
!! Rows("4:372").Select
Selection.Sort Key1:=Range("K4"), Order1:=xlAscending, Key2:=Range("J4") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
End Sub



Private Sub CommandButton1_Click()
  sheet_kopieren
  markieren_sortieren
End Sub


Was er tun soll, ist, so denke ich, ersichtlich.

thx 4 ur answers!
Bild


Betrifft: AW: Problem beim markieren von Zellen
von: Hajo_Zi
Geschrieben am: 04.11.2003 09:09:07

Hallo Tobias

in VBA ist zu 99% kein select, Activate usw. notwendig

Public Sub sheet_kopieren()
Sheets("Pipeline").Copy Before:=Sheets(3)
ActiveSheet.Name = "Direktgeschäft nach OO"
End Sub


Public Sub markieren_sortieren()
With Sheets("Direktgeschäft nach OO").Rows("4:372")
.Sort Key1:=.Range("K4"), _ Order1:=xlAscending, Key2:=.Range("J4") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
end With
End Sub



Private Sub CommandButton1_Click()
  sheet_kopieren
  markieren_sortieren
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: kleines problem
von: Tobias
Geschrieben am: 04.11.2003 09:50:15

thx für deine schnelle antwort.
leider funktioniert es nicht, weil er sagt: "expected: end of statement" und markiert key1

kannst du helfen?


Bild


Betrifft: AW: kleines problem
von: Hajo_Zi
Geschrieben am: 04.11.2003 09:57:51

Hallo Tobias

der erste Beitrag war Live, jetzt habe ich es getestet

Option Explicit

Public Sub sheet_kopieren()
Sheets("Pipeline").Copy Before:=Sheets(3)
ActiveSheet.Name = "Direktgeschäft nach OO"
End Sub


Public Sub markieren_sortieren()
With Sheets("Direktgeschäft nach OO").Rows("4:372")
.Sort Key1:=.Range("K4"), Order1:=xlAscending, Key2:=.Range("J4"), _
Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
End With
End Sub



Private Sub CommandButton1_Click()
    sheet_kopieren
    markieren_sortieren
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro




Bild


Betrifft: vielen vielen Dank
von: Tobias
Geschrieben am: 04.11.2003 10:02:13

klappt jetz wunderbar!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Problem beim markieren von Zellen"