Supportnet / Forum / Tabellenkalkulation
Startseite festlegen!
Frage
Hallo
ich möchte - dass bei meiner Arbeitsmappe mit mehereren Tabellenblättern - beim Öffen immer das Tabellenblatt mit der Benennung "Info" als Startseite geöffnet wird!.
Kann mir jemand helfen einen Tipp geben wie ich das anstellen soll? - ich wäre sehr dankbar.
Grüsse Moni
Antwort 1 von Nachtrabe
Hi Stephi,
Eine gute Lösung ist folgende :
Öffne die Arbeitsmappe, in der das geschehen soll. Mit Alt+F11 kommst du in Visual Basic.
Links solltest du eine kleine Verzeichnisstruktur sehen, darunter der Punkt "Diese Arbeitsmappe".
Doppelklick darauf, es öffnet sich ein leeres Blatt.
Gib hier den folgenden Code ein :
Visual Basic verlassen, Excel-Mappe speichern, fertig.
Liebe Grüße
nachtrabe
Eine gute Lösung ist folgende :
Öffne die Arbeitsmappe, in der das geschehen soll. Mit Alt+F11 kommst du in Visual Basic.
Links solltest du eine kleine Verzeichnisstruktur sehen, darunter der Punkt "Diese Arbeitsmappe".
Doppelklick darauf, es öffnet sich ein leeres Blatt.
Gib hier den folgenden Code ein :
Private Sub Workbook_Open()
Worksheets("Info").Activate
End Sub
Visual Basic verlassen, Excel-Mappe speichern, fertig.
Liebe Grüße
nachtrabe
Antwort 2 von Stephi
Hi "Nachtrabe"
Funktioniert wunderbar! Einen total lieben Gruss und vielen Dank aus Zürich.
Stephi
Funktioniert wunderbar! Einen total lieben Gruss und vielen Dank aus Zürich.
Stephi
Antwort 3 von Nachtrabe
Huhu,
danke für das Feedback :-)
Noch viel Spaß
Nachtrabe
danke für das Feedback :-)
Noch viel Spaß
Nachtrabe
Antwort 4 von Stephi
Hallo an alle Helfenden
Ich möchte eine Tabelle überarbeiten - die ich von einem aus der Firma ausgetretenen Mitarbeiter übernommen habe. Leider verstehe ich die vorhandene Formel nicht.
Ich wäre euch sehr dankbar wenn ihr mir die Formel soweit erklären könntet, damit ich weiss was das Ding macht – bezw. wo muss ich eingreifen und die Anpassung vornehmen wenn die Zeilenzahl jeweils um 3 Zeilen erweitert wird?
Die Formel bisher:
Sub Erfüllungsgrad_anzeigen()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Selection.AutoFilter field:=1, Criteria1:="1"
Select Case Range("BL35")
Case "2"
Selection.AutoFilter field:=1, Criteria1:="1"
Case "3"
For i = 40 To 500 Step 7
If Cells(i, 3) <> 1 Then
Rows((i - 2) & ":" & (i + 4)).Select
Selection.EntireRow.Hidden = True
End If
Next i
Case "4"
For i = 40 To 500 Step 7
If Cells(i, 3) <> 2 Then
Rows((i - 2) & ":" & (i + 4)).Select
Selection.EntireRow.Hidden = True
End If
Next i
Case "5"
For i = 40 To 500 Step 7
If Cells(i, 3) <> 3 Then
Rows((i - 2) & ":" & (i + 4)).Select
Selection.EntireRow.Hidden = True
End If
Next i
End Select
Range("BL45") = "1"
Range("BL35") = "1"
´ ActiveSheet.Protect
Range("A1").Select
End Sub
Kann mir jemand helfen - ich wäre sehr dankbar.
Gruss Stephi
Ich möchte eine Tabelle überarbeiten - die ich von einem aus der Firma ausgetretenen Mitarbeiter übernommen habe. Leider verstehe ich die vorhandene Formel nicht.
Ich wäre euch sehr dankbar wenn ihr mir die Formel soweit erklären könntet, damit ich weiss was das Ding macht – bezw. wo muss ich eingreifen und die Anpassung vornehmen wenn die Zeilenzahl jeweils um 3 Zeilen erweitert wird?
Die Formel bisher:
Sub Erfüllungsgrad_anzeigen()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Selection.AutoFilter field:=1, Criteria1:="1"
Select Case Range("BL35")
Case "2"
Selection.AutoFilter field:=1, Criteria1:="1"
Case "3"
For i = 40 To 500 Step 7
If Cells(i, 3) <> 1 Then
Rows((i - 2) & ":" & (i + 4)).Select
Selection.EntireRow.Hidden = True
End If
Next i
Case "4"
For i = 40 To 500 Step 7
If Cells(i, 3) <> 2 Then
Rows((i - 2) & ":" & (i + 4)).Select
Selection.EntireRow.Hidden = True
End If
Next i
Case "5"
For i = 40 To 500 Step 7
If Cells(i, 3) <> 3 Then
Rows((i - 2) & ":" & (i + 4)).Select
Selection.EntireRow.Hidden = True
End If
Next i
End Select
Range("BL45") = "1"
Range("BL35") = "1"
´ ActiveSheet.Protect
Range("A1").Select
End Sub
Kann mir jemand helfen - ich wäre sehr dankbar.
Gruss Stephi