AW: tabellen beschriftung
15.06.2005 00:00:16
Peter
Servus,
dein Wunsch ist mir Befehl ;) tausch die Codes aus, dann past´s.
Option Explicit
Sub monat()
Dim i%
Dim monang As String
Dim endmon As Variant
Dim datnam As String
On Error GoTo fehler
Application.ScreenUpdating = False
monang = Application.InputBox("Bitte geben Sie einen Monat ein:", "Monatseingabe", , , , , , Type:=1)
If monang = False Then Exit Sub
Select Case monang
Case 1, 3, 5, 7, 8, 10, 12: endmon = 31
Case 2: endmon = 28
Case 4, 6, 9, 11: endmon = 30
Case Else
MsgBox ("Den Monat mit der Nummer " & monang & " gibt es nicht !!!, Vorgang abgebrochen")
Application.ScreenUpdating = True
Exit Sub
End Select
For i = 1 To endmon
datnam = Format(i & "." & monang & "." & Year(Now), "ddd dd.mm.yy", vbMonday)
Sheets.Add.Name = (datnam)
Next
Application.ScreenUpdating = True
Exit Sub
fehler:
MsgBox Err.Number & " " & Error
End Sub
MfG
Peter