Private Sub Workbook_Open()
Sheets("xy").Select
End Sub
Private Sub Worksheet_Activate()
Range("A15").Select
End Sub
Private Sub Workbook_Open()
Sheets("xy").Range("A15").Select
End Sub
Private Sub Workbook_Open()
With Worksheets("XY")
.Activate
.Range("A15").Select
End With
End Sub
Private Sub Workbook_Open()
With Worksheets("xy")
.Select
.Activate
End With
End Sub
Private Sub Worksheet_Activate()
If ActiveWindow.DisplayHeadings = True Then
Range("A1").Select
Else
Range("E32").Select
End If
End Sub
Private Sub Workbook_Open()
Worksheets("xy").Activate
If ActiveWindow.DisplayHeadings = True Then
Range("A1").Select
Else
Range("E32").Select
End If
End Sub
Private Sub Worksheet_Activate()
If ActiveWindow.DisplayHeadings = True Then
Range("A1").Select
Else
Range("E32").Select
End If
End Sub
das funktioniert, aber wieso funktioniert es nicht, wenn lediglich zum Sheet gewechselt, also dieses aktiviert wird und dann jede weitere Anweisung in u.g. Sub vereinbart wird, bzw. u.g. nur funktioniert, wenn dieses Sheet manuell aktiviert wird?
'Code diese Arbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Worksheets("Absteigend").Activate
Call Tabelle1.XY_Activate 'Tabelle1 = Codename der Tabelle "xy"
End Sub
'Code Tabelle "xy"
Option Explicit
Private Sub Worksheet_Activate()
Call XY_Activate
End Sub
Sub XY_Activate()
If ActiveWindow.DisplayHeadings = True Then
Range("A1").Select
Else
Range("E32").Select
End If
End Sub