Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
jeden Tag neues Sheet erzeugen
zurück: Werte von der Exceltabelle in Visio übertragen VBA weiter: Suchabfrage aus txt-Datei Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
zwuck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Nov 2010, 08:37
Rufname:

jeden Tag neues Sheet erzeugen - jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

Guten morgen an die Profis!

Ich bräuchte bitte ein bisschen Hilfe bei folgendem Problem:
wie schaffe ich es, dass jeden Tag ein neues Sheet erzeugt wird mit dem aktuellen Datum als Namen und einer leeren Tabelle die als Vorlage für jeden Tag neu gebraucht wird?

Und was auch noch gut wäre: Die Sheets nur über eine Arbeitswoche archivieren und dann automatisch löschen lassen...

Wäre super, wenn ihr mir weiterhelfen könntet!

Mfg Zwuck

_________________
Lieber a Wammal am Bauch
als a Schwammal am Schlauch!
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Nov 2010, 09:19
Rufname:


AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

Hi

probier mal diesen Code im Modul "DieseArbeitsmappe"

Code:
Private Sub Workbook_Open()
Dim strName As String
Dim i As Long
Dim AktuellerTagVorhanden As Boolean
strName = Format(Date, "DD.MM.YYYY")
For i = 1 To Me.Sheets.Count
    If IsDate(Me.Sheets(i).Name) Then
        If Me.Sheets(i).Name = strName Then AktuellerTagVorhanden = True
        If CDate(Me.Sheets(i).Name) < Date - 7 Then
            Application.DisplayAlerts = False
            Me.Sheets(i).Delete
            Application.DisplayAlerts = True
        End If
    End If
Next
If Not AktuellerTagVorhanden Then
    With Me.Sheets.Add
        .Name = strName
    End With
End If
End Sub

damit wird beim Öffnen der Datei geprüft, ob ein Sheet für den aktuellen Tag vorhanden ist und wenn nein, wird dieses angelegt.
Blätter, die älter als 7 Tage sind, werden gelöscht.

Gruß, Daniel
Gast



Verfasst am:
24. Nov 2010, 10:00
Rufname:

AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

super vielen dank!
zwuck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Nov 2010, 10:23
Rufname:

AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

halt doch nicht...
es kommt folgende Fehlermeldung:

"Unzulässige Verwendung des Schlüsselworts me"

und folgende Zeile ist markiert:

For i = 1 To Me.Sheets.Count

was kann das sein?

_________________
Lieber a Wammal am Bauch
als a Schwammal am Schlauch!
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Nov 2010, 10:27
Rufname:


AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

Hi

da hast du wohl, entgegen meiner Anweisung, den Code nicht in das Modul "DieseArbeitmappe" sondern in ein allgemeines Modul kopiert.

im Modul "DieseArbeitsmappe" funktioniert der Code ohne diese Fehlermeldung.

wenn der Code in einem allgemeinen Modul stehen soll, musst du ME durch THISWORKBOOK ersetzen.

Gruß, Daniel
zwuck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Nov 2010, 13:01
Rufname:

AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

Sorry mein Fehler ;)
_________________
Lieber a Wammal am Bauch
als a Schwammal am Schlauch!
zwuck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Nov 2010, 08:18
Rufname:

AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

ich hätte jetzt noch 2 zusätzliche Fragen:

1. ist es möglich, dass ich ein Sheet mit einer Tabellenvorlage verberge und diese Tabelle immer in das neu erzeugte Sheet mit reinkopiere?
2. wie bekomme ich noch das Wörtchen "Tabelle" in den Sheet-Namen?

Mfg Zwuck

_________________
Lieber a Wammal am Bauch
als a Schwammal am Schlauch!
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Nov 2010, 09:29
Rufname:

AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

Hi

1. ja, kann man machen
man darf ausgeblendete Sheets halt nur nicht selektieren, sondern muss die Zellen zum bearbeiten oder kopieren dann eben vollständig, dh. mit Sheetangabe referenzieren, Beispiel:
Sheets("Vorlage").Usedrange.Copy

2. ja geht auch:
.Name = "Tabelle " & strName

allerdings musst du dann das "Tabelle " für den Datumsvergleich beim Löschen wieder entfernen, z.B. mit der MID-Funktion:
If CDate(Mid(Me.Sheets(i).Name, Len("Tabelle ")+1)) < Date - 7 Then

Gruß, Daniel
Gast



Verfasst am:
25. Nov 2010, 09:40
Rufname:

AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

Zitat:
1. ist es möglich, dass ich ein Sheet mit einer Tabellenvorlage verberge und diese Tabelle immer in das neu erzeugte Sheet mit reinkopiere?

Dann nicht mit Sheets.Add sondern einfach die Vorlage kopieren:
Code:
If Not AktuellerTagVorhanden Then
    With Me
        .Sheets("Vorlage").Visible = True
        .Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
        .ActiveSheet.Name = strName
        .Sheets("Vorlage").Visible = False
    End With
End If



Zitat:
2. wie bekomme ich noch das Wörtchen "Tabelle" in den Sheet-Namen?

strName = "Tabelle " & Format(Date, "DD.MM.YYYY")

Allerdings würde dann die Prüfung If CDate(Me.Sheets(i).Name) < Date - 7 Then nicht mehr funktionieren.
Dann muss der Sheetname erst wieder zerlegt werden, etwa so:
If CDate(Right(Me.Sheets(i).Name, Len(Me.Sheets(i).Name) - 8)) < Date - 7 Then

In Summe dann so:

Code:
Private Sub Workbook_Open()
Dim strName As String
Dim i As Long
Dim AktuellerTagVorhanden As Boolean
strName = "Tabelle " & Format(Date, "DD.MM.YYYY")
For i = 1 To Me.Sheets.Count
    If Len(Sheets(i).Name) > 8 Then
        If Sheets(i).Name = strName Then AktuellerTagVorhanden = True
            If Right(Sheets(i).Name, Len(Sheets(i).Name) - 8) < Format(Date - 7, "DD.MM.YYYY") Then
            Application.DisplayAlerts = False
            Me.Sheets(i).Delete
            Application.DisplayAlerts = True
            End If
    End If
Next
If Not AktuellerTagVorhanden Then
    With Me
        .Sheets("Vorlage").Visible = True
        .Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
        .ActiveSheet.Name = strName
        .Sheets("Vorlage").Visible = False
    End With
End If
End Sub


Gruß Sven.
Gast



Verfasst am:
25. Nov 2010, 09:42
Rufname:

AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

Ups, war inzwischen schon beantwortet.
zwuck
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Nov 2010, 09:50
Rufname:

AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

Super Jungs!
Vielen Dank!

_________________
Lieber a Wammal am Bauch
als a Schwammal am Schlauch!
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Nov 2010, 09:56
Rufname:


AW: jeden Tag neues Sheet erzeugen - AW: jeden Tag neues Sheet erzeugen

Nach oben
       Version: Office 2007

macht ja nix.
unterschiedliche Antworten zeigen oft auch unterschiedliche Lösungswege auf, das macht die Sache interessant.
Gruß, Daniel
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: An welchem Tag wird Umsatzsoll erreicht? 2 Volker111 490 15. Jan 2008, 18:46
Gast An welchem Tag wird Umsatzsoll erreicht?
Keine neuen Beiträge Excel Formeln: Fester freier Tag berechnen 5 Gast 575 09. Dez 2007, 19:39
Zero Fester freier Tag berechnen
Keine neuen Beiträge Excel Formeln: letzten Tag eines Monats finden 19 Corina 1295 21. Nov 2007, 10:00
landau66 letzten Tag eines Monats finden
Keine neuen Beiträge Excel Formeln: Fortlaufende Liste erzeugen 0 Gast 786 07. Nov 2007, 12:20
Gast Fortlaufende Liste erzeugen
Keine neuen Beiträge Excel Formeln: Liste sortiert ohne duplikate dynamisch per Formel erzeugen 4 DeWallhall 2209 02. Nov 2007, 09:25
fridgenep Liste sortiert ohne duplikate dynamisch per Formel erzeugen
Keine neuen Beiträge Excel Formeln: IF Formel mit Aktion auf anderes Sheet 9 Formel Legastheniker 486 05. Sep 2007, 13:21
Gast IF Formel mit Aktion auf anderes Sheet
Keine neuen Beiträge Excel Formeln: Mit einer Formel Durchsuchbaren Text erzeugen 4 Gast 398 24. Aug 2007, 12:57
Gast Mit einer Formel Durchsuchbaren Text erzeugen
Keine neuen Beiträge Excel Formeln: arbeitsblatt automatisch per code erzeugen 3 happypins 1187 12. Aug 2007, 17:53
Thethos arbeitsblatt automatisch per code erzeugen
Keine neuen Beiträge Excel Formeln: Werte vom gleichen Tag addieren 3 monica_petke 1891 25. Jul 2007, 13:57
Gast Werte vom gleichen Tag addieren
Keine neuen Beiträge Excel Formeln: Kalenderwoche eingeben und von Mo-So Datum erzeugen 6 cleopatra48 3517 07. Jul 2007, 19:15
Gast Kalenderwoche eingeben und von Mo-So Datum erzeugen
Keine neuen Beiträge Excel Formeln: Suche;finde und kopiere zeile in sepa. Sheet. HILFE !!! 1 dan123 597 13. Feb 2007, 23:08
olafB Suche;finde und kopiere zeile in sepa. Sheet. HILFE !!!
Keine neuen Beiträge Excel Formeln: Aus Jahr, Kalenderwoche und Tag das entspr. Datum berechnen 3 SF242 5632 11. Feb 2007, 15:25
SF242 Aus Jahr, Kalenderwoche und Tag das entspr. Datum berechnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks