If -Else -Abfrage
13.05.2006 18:00:54
Wolfgang
ich möchte mit dem folgenden Makro
das nach dem Sortiervorgang immer bei der geraden aktiven Tabelle verblieben wird.
Ich dachte mir das mit einer If Else Abfrage hinzubekommen.
Es will aber nicht funktionieren:
Ich bitte um Hilfe!
Gruß Wolfgang
danke
Sub Sortieren_UserForm_Objekt_Nr_Aufwärts()
Application.ScreenUpdating = False
' Range("A1").Select
If wks1.Visible = 1 Then
wks1.Select
wks1.Range("A1:BT1000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Application.ScreenUpdating = True
Else
wks1.Select
wks1.Range("A1:BT1000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Tabelle2.Select
Application.ScreenUpdating = True
End If
End Sub