Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Starttabellenblatt festlegen

Forumthread: 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
Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten 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
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
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
Anzeige
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
Anzeige
Zugriff auf anderes Tabellenblatt
TommiH

Hallöchen,
nur eine kurze Frage, ich habe 2 Arbeitsblätter (A und B). In B sind rund 5000 Zeilen, die in der ersten Spalte eine Referenznummer haben.
Nun bearbeite ich die Daten in Blatt A und muss immer wieder in Blatt B nachschauen, ob zu der aktuellen Nummer in Blatt B ein Text bei d...
05.09.2011 13:54:40
Thread-ID: 1228662
4 Beiträge
Buttons auf einer Multipage in einem Tabellenblatt
Christoph

Hallo,
ich suche und suche aber finde keine Loesung. Ich habe in einem Tabellenblatt (wohlgemerkt kein UserForm) eine Multipage angelegt (Microsoft Forms 2.0 Multipage) und danach darauf einen Button plaziert. Jedoch will es mir nicht gelingen diesen mit einem VBA-Code zu versehen.Ich suche...
08.06.2002 00:47:11
Thread-ID: 127014
2 Beiträge
Anzeige
Makro Verweis auf anderes Tabellenblatt
Michael

Hallomein Makro "Daten schreiben" von Zelleninhalten funtkioniert innerhalb eines Tabellenblattes.
Jetzt will ich aber die Schaltfläche auch auf einem anderen Tabellenblatt integrieren mit der selben Funktionalität.Mein Code ist:
Set Datenbank = OpenDatabase(Dateiname)
Set Date...
04.07.2002 15:13:07
Thread-ID: 133889
2 Beiträge
Code anpassen-Zugriff auf anderes Tabellenblatt
Bon

Hallo zusammen,
ich habe ein Problem, dass für euch Experten sicher kein Problem darstellt:
Ich habe einen Code gefunden und möchte ihn nun so anpassen, dass er nicht auf das aktuelle Tabellenblatt, sondern auf ein anderes zugreift.
Der Command Button ist in Tabelle1 der Zieldatei,...
09.07.2014 15:36:13
Thread-ID: 1369523
3 Beiträge
Anzeige
Verweis auf anderes Tabellenblatt mit zwei Spalten
Burghard

Hallo,
ich möchte von dem Tabellenblatt 2 auf das Tabellenblatt 1 verweisen (Suchkriterium dort in Spalte E = Name-1, in Spalte F = Name-2), im Tabelle 2 (Ergebnistabellenblatt) steht in Spalte E= Name-2, in Spalte F = Name-1. Der zuzuordnende Begriff steht in Tabelle 1 in Spalte G und soll...
01.02.2015 16:30:47
Thread-ID: 1406548
5 Beiträge
Datensätze auf anderes Tabellenblatt übertragen
puma_888

Hallo zusammen,
ich möchte aus dem Tabellenblatt "Produktvergleich" Daten an das Tabellenblatt "Vergleichsformular" durch klick des CommandButton1 übergeben. Es sollen jedoch nur die Daten von den Zellen übergeben werden, bei denen eine Checkbox davor markiert ist, alle anderen Daten sollen...
31.03.2015 13:57:13
Thread-ID: 1418229
12 Beiträge
VBA: Nur bestimmte Tabellen auswählen
Emre

Hallo,
der Code den ich habe übernimmt die Werte von allen aktuellen Tabellenblättern. Ich brauch aber nur die Werte der Tabellen 1 und 2. Wie kann ich den Code so umändern, dass es passt? Jemand eine Idee?
Dim liBlattanzahl As Integer
liBlattanzahl = ActiveWorkbook.Worksheets.Count...
10.06.2015 00:45:08
Thread-ID: 1430075
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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