Office: Tabellenblatt mit Datum und Wochentag

Hallo miteinander,

hab mal wieder ein anliegen, ich möchte eine Vorlage kopieren und im Tabellenblatt sollte das Datum und der Tag (MO,DI) usw. stehen.

Wie könnte man das lösen?

Anbei mein jetziger Code:

Danke und Gruss
Wolf

PHP:

         Private Sub kopieren()
On Error GoTo ErrExit
GetMoreSpeed

datum = ("31.12.2015")

For i = 1 To 366 Step 1
ThisWorkbook.Sheets("Vorlage").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = CDate(datum) + i
Next i


ErrExit:
GetMoreSpeed 0
End Sub

Sub GetMoreSpeed(Optional ByVal Modus As Integer = 1)
Static lngCalc As Long

With Application
If Modus = 1 Then
lngCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = -4135
.Cursor = xlWait
Else
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = IIf(lngCalc <> 0, lngCalc, -4105)
.Cursor = xlDefault
End If
End With

End Sub


:)

 

Hi Wolf,

weshalb soll nach dem Kopieren noch ein weiteres Tabellenblatt hinzugefügt werden? Wenn ich dein Anliegen richtig verstanden habe, dann sollte der Codeteil so aussehen:

Code:

 

Hallo!
Im Tabellenblatt dann so (hier Zelle A1)
Code:

Allerdings würde ich keine 366 Blätter anlegen, sondern eine Datentabelle und ein Formular, welches mit der "Datenbank" kommuniziert.

Gruß Ralf

 

Sorry war mal wieder nicht so ganz gut erklärt.

Hab mal ein Bild beigefügt, an dem man erkennen sollte was ich eigentlich
machen wollt.

Danke dir mal...

Gruss
Wolf

 

Hallo Wolf,

da kann ich ausnahmsweise mal nicht widersprechen -und das kann ich sonst immer. *wink.gif*

Code:

Wichtigste Änderungen in ROT.

Grüße
EarlFred

 

Hallo EarlFred,

da kann ich dir leider mal wieder nicht widersprechen, du hast mein Problem
trotz schlechter Erklärung mal wieder super zu meiner vollen Zufriedenheit gelöst.

Vielen vielen DANK!

Gruss
Wolf

 

Halo Wolf,

und mal so als (Gedanken-)Spielerei, was man mit einem Datum so alles anstellen kann, wenn es ein "richtiges" Datum ist und nicht nur Text:
Code:

Die Roteintragungen im anderen Code solltest Du Dir aber auch anschauen. Und frag gerne nach, wenn etwas unklar ist.

Grüße
EarlFred

 

Moin!
Auch nur als zusätzliche Spielerei.
Jahr wird per Makro übergeben, Aufruf startet:

Gruß Ralf

 

\@Ralf,

oder so?
Code:

Grüße
EarlFred

 

Hi EarlFred!
Gefällt mir besser. *tongue.gif*
Ich bin aber immer noch der obigen Meinung, dass ich mir nicht vorstellen kann, dass eine Datei 367 Blätter benötigt.
Eine Lösung mit einem Formular-Blatt, welches mit einem "Datenbankblatt" per VBA wechselseitig verknüpft ist, wäre schlanker und schneller.

Ist aber nur meine Meinung. ;-)

Gruß Ralf

 

ma da gibt es ja Möglichkeiten, wenn man sich auskennt.
Aber ich bin schon zufrieden, mit deiner vorletzten Variante!

Daher Danke mal für die weiteren Möglichkeiten. *Smilie

Gruss
Wolf

Ps. Ralf natürlich auch dir Danke........ und das mit der Datenbank ist ziemlich schwierig, weil ich muss von ca. 80 Maschinen die Daten eintragen pro Tag.

 

Hi Ralf,

vermeiden würde ich es auf alle Fälle auch, wenn es geht - da sind wir ganz auf einer Linie. Aber man kennt ja nicht immer alle Anforderungen.

Grüße
EarlFred

 

Gerade gesehen, Wolf:

Umso besser! *wink.gif*
Man kann auch mit Excel eine Art relationale Datenbank aufbauen.
Alles eine Frage der Struktur der Mappe.
(es geht nicht nur 1:n, sondern auch n:m)

Wäre aber eine umfangreichere Geschichte, die es Dir aber mit flotten Lade/Speicherzeiten dankt und das Netzwerk entlastet.

Aber wenn Du mit Deiner Datei klar kommst, solltest Du sie auch so lassen. *tongue.gif*

Gruß Ralf