Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Starttabellenblatt festlegen

Starttabellenblatt festlegen
30.01.2007 17:09:36
Mister
Hallo Excel Götter!
meine Datei hat 12 Tabellenblätter. Die Blätter sind nach den Monaten genannt. Wie kann ich es einrichten, dass beim Starten der Datei, das aktuelle Blatt aktiv wird?
Gruß
Mister B

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Starttabellenblatt festlegen
30.01.2007 17:40:42
fcs
Hallo Mister B,
ich nehme an du meinst dass das Blatt des aktuellen Monats angezeibt wird.
Im VBA-Editor für die Datei unter "DieseArbeitsmappe" folgenden Code einfügen.
Gruss
Franz

Private Sub Workbook_Open()
Worksheets(Format(Date, "MMMM")).Activate ' Blattnamen Januar, Februar usw.
'  Worksheets(Format(Month(Date), "0")).Activate ' Balattnamen 1, 2 usw. bis 12
End Sub

AW: Starttabellenblatt festlegen
30.01.2007 17:41:03
Peter
Hallo Mister B,
vorausgesetzt, deine Blätter heißen Januar, Februar, März usw, dann könnte das so gehen:
Option Explicit

Private Sub Workbook_Open()
Dim aMonat  As Variant
aMonat = Array(" ", "Januar", "Februar", "März", "April", "Mai", "Juni", _
"Juli", "August", "September", "Oktober", "November", "Dezember")
Worksheets(aMonat(Month(Date))).Select
End Sub

Das obenstehende Makro in DieseArbeitsmappe einfügen.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Starttabellenblatt festlegen
30.01.2007 17:42:06
Matthias
Hallo Mister B,
in "DieseArbeitsmappe":

Private Sub Workbook_Open()
Worksheets(Format(Date, "mmmm")).Activate
End Sub

Gruß Matthias
AW: Starttabellenblatt festlegen
30.01.2007 18:01:36
Hoffi
Hallo,
wenn Du beim Start nur das eine Blatt sichtbar haben willst (um eventuelle Fehleingaben auf anderen Blättern zu vermeiden) dann so:
Ins Modul: "Diese Arbeitsmappe"

Private Sub Workbook_Open()
Dim ws As Worksheet
Dim monat As String
Application.ScreenUpdating = False
monat = Format(Now, "mmmm")
For Each ws In ActiveWorkbook.Sheets
If ws.Visible = 2 Or 0 Then ws.Visible = 1
Select Case ws.Name
Case monat
ws.Visible = xlSheetVisible
Case Else
ws.Visible = xlSheetVeryHidden
End Select
Next
Application.ScreenUpdating = True
End Sub

Grüße
Hoffi
Anzeige
AW: Starttabellenblatt festlegen
30.01.2007 18:10:22
Mister
An alle!
Danke an alle! Alle Vorschläge funktionieren prima. Ich danke euch
Gruß
Mister B

283 Forumthreads zu ähnlichen Themen

Zellwert auf anderes Tabellenblatt übernehmen
Jan

Hallo zusammen
ich habe in den Zellen A10:A10010 diverse Werte stehen. Jetzt möchte ich, dass wenn man auf so einen Wert draufklickt, in der Zelle A8 eines anderen Tabellenblattes genau dieser Wert erscheint... Ist das irgendwie machbar mit einem Makro oder so? Wenn ja, dann wäre ich um jed...
10.03.2009 15:49:15
Thread-ID: 1058747
9 Beiträge
Anzeige
Öffnen Dialog mit bestimmten Pfad öffnen
Frank

Hallo zusammen,
ich habe in einer Excel Tabelle (Festwert) in der Zelle B2 eine Pfad Angabe vermerkt (z.B.: \\hs0004\gbn\status\ ). Ich möchte nun wenn ich den Excel Dialog (Application.Dialogs(xlDialogOpen).Show per VBA starte das der von mir zuvor abgelegt Pfad zur Auswahl von Excel Datei...
24.09.2009 14:40:40
Thread-ID: 1105289
7 Beiträge
Datei mit bestimmten Namen öffnen
Holla

Ich hab ein makro, dass auf Knopfdruck auffordert eine Datei zu öffnen.
Wie kann man es verhindern, dass die falsche ausgewählt wird. Die Namen der Dateien sind immer in folgender Form: XMLVJT2_JJJJ_Qx.xls , wobei JJJJ und X variabel sind.
Kann man da eine Fehlermeldung einbauen, wenn m...
13.11.2009 12:40:42
Thread-ID: 1116875
6 Beiträge
Anzeige
Commanbutton auf Tabellenblatt einfügen
MichaV

Hallo,
kann mir bitte jemand sagen wie in XL2007 eine Taste (CommandButton) in einem Tabellenbaltt (also nicht auf einer UserForm) eingefügt wird? Ich finds nicht raus, grrr...
Grusz- Micha
03.03.2010 22:57:07
Thread-ID: 1143166
4 Beiträge
Verweis auf anderes Tabellenblatt
Werner

Hallo Excel-Freunde
Ich bräuchte wieder einmal eure Hilfe.
Ich habe eine Datei mit verschiedenen Tabellenblättern,
In Tabelle 10 Zelle N5 steht folgende Formel: =SUMME('09'!P5)
Diese Formel kopiert also den Inhalt der Tabelle 09 Zelle P5 auf Blatt 10 in Zelle N5
Da es sich j...
05.03.2010 21:02:45
Thread-ID: 1143834
6 Beiträge
Verweis auf anderes Tabellenblatt
Werner

Hallo Excel-Freunde
Habe das Problem zwischenzeitlich mit Hilfe von Erich aus Kamp-Lintfort gelöst.
Habe dafür folgendes verwendet:
04
N
5 4721
Formeln der Tabelle
Zelle Formel
N5 =INDIREKT(TEXT(TEIL(ZELLE("Filename";A1); FINDEN("]";ZELLE("Filename";A1))+1;25...
07.03.2010 11:51:45
Thread-ID: 1144071
3 Beiträge
verschiedenen Tabellenblätter zusammenführen VBA
andreas

Hallo zusammen,
ich möchte jeweils beim öffnen der Tabelle die Werte in Blatt1 löschen und dann die Werte aus Blatt2,Blatt3 usw. neu in Blatt1 einlesen und nach Spalte 1 sortieren.
habe leider keinen Ansatz dazu und bin deshalb für jede Hilfe dankbar.
Gruß Andreas
08.06.2010 13:02:40
Thread-ID: 1160815
3 Beiträge
Funktion für Sprung auf anderes Tabellenblatt
susanne

Hallo Freaks,
ich suche eine Funktion für folgendes Problem:
Ich habe mehrere Tabellenblätter mit folgenden Namen: "16.11.", "17.11.", "18.11."... usw...
Auf einem anderen Tabellenblatt errechnet sich mit einer Formel ein Datum - z. B. in E1. Mögliches Ergebnis z. B. "17.11."
Ex...
15.11.2010 20:05:15
Thread-ID: 1186942
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
3
6
5
1
3
5
2
2
8
2
3
4
1
2
1
2
6
4
11
5
7
4
2
5