Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 306
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von Sternfahrer vom 07.08.2017, 13:20 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Per VBA fortlaufendes Arbeitsblatt öffnen

 (684 Hits)

Hallo,

ich habe eine Tabelle erstellt in der verschiedene Personen unabhängig voneinander Eintragungen vornehmen müssen. in der Tabelle sind mehrere Arbeitsblätter vorhanden wobei jedes Arbeitsblatt ein anderer Tag ist. (der Name ist also ein Datum).
Ist es per VBA möglich das Excel beim Öffen der Tabelle automatisch das Arbeitsblatt mit dem heutigen (also aktuellen) Datum öffnet?


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von M.O. vom 07.08.2017, 14:06 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

ja das ist möglich. Ich gehe davon aus, dass die Arbeitsblätter "07.08.2017" etc. heißen.

Kopiere das folgende Makro in das VBA-Projekt der betreffenden Arbeitsmappe:
Private Sub Workbook_Open()
Dim strName As String

strName = Date

Worksheets(strName).Activate

End Sub


Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 2 von M.O. vom 07.08.2017, 14:25 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

noch mal ich ;-). Hier das erweiterte Makro mit Prüfung, ob ein entsprechendes Tabellenblatt überhaupt existiert:

Private Sub Workbook_Open()
Dim strName As String
Dim ws As Worksheet
Dim bExists As Boolean

'aktuelles Datum = Name des Arbeitsblatts
strName = Date
' Alle vorhandenen Arbeitsblätter durchlaufen
For Each ws In Worksheets
    If ws.Name = strName Then
       bExists = True
       Exit For
    End If
Next

If bExist = True Then
  'Arbeitsblatt aktivieren
  Worksheets(strName).Activate
Else
  'fehlermeldung
  MsgBox "Das Arbeitsblatt mit dem Name " & strName & " existiert nicht!", 16, "Fehler"
End If

End Sub


Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 3 von Sternfahrer vom 07.08.2017, 15:01 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Danke M.O. für die schnelle Antwort,

ja, die einzelnen Arbeitsblätter sind dd.mm.jjjj bezeichnet, habe den Code (mit Prüfung)verwendet aber Excel meckert das ein Arbeitsblatt mit dem Namen 07.08.2017 nicht existiert, es ist aber definitiv da

woran könnte das liegen?


Antwort noch nicht bewertet
Antwort 4 von Sternfahrer vom 07.08.2017, 15:21 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Nachtrag: mit dem Code ohne Prüfung funktioniert es

Antwort noch nicht bewertet
Antwort 5 von M.O. vom 07.08.2017, 15:34 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo,

ja da ist ein kleiner Fehler drin :-(. Bei der Anweisung
If bExist = True Then

fehlt ein s. Ersetze die Zeile durch
If bExists = True Then

dann sollte es klappen.

Gruß

M.O.


Antwort noch nicht bewertet Als gute Antwort bewerten
Diese Antwort hat das Problem gelöst!
Antwort 6 von Sternfahrer vom 10.08.2017, 11:17 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

super, jetzt klappt es

Vielen Dank für deine Hilfe


Antwort noch nicht bewertet




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Fri Dec 8 16:26:13 2017