Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt anlegen

Tabellenblatt anlegen
26.03.2008 13:51:00
Rudi
Hallo,
folgender Code habe ich aus dem Forum.
Wie kann ich verhindern das dieser Monat zweimal angelegt wird.

Private Sub CommandButton1_Click()
Sheets("Hauptzähler").Select
Sheets("Hauptzähler").Copy Before:=Sheets(1)
Sheets("Hauptzähler (2)").Select
ActiveSheet.Name = Format(DateSerial(Year(Date), _
Month(Date) - 2, 1), "MMMM YYYY")
MsgBox ("Monat erfolgreich erstellt")
End Sub


Könnte mir bitte jemand behilflich sein
Gruss
Rudi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt anlegen
26.03.2008 14:11:00
Ramses
Hallo

Private Sub CommandButton1_Click()
    Dim wks As Worksheet
    For Each wks In ActiveWorkbook.Worksheets
        If wks.Name = Format(DateSerial(Year(Date), Month(Date) - 2, 1), "MMMM YYYY") Then
            MsgBox "Der Monat existiert schon", vbCritical + vbOKOnly, "Fehler"
            Exit Sub
        End If
    Next
    Sheets("Hauptzähler").Copy Before:=Sheets(1)
    ActiveSheet.Name = Format(DateSerial(Year(Date), Month(Date) - 2, 1), "MMMM YYYY")
    MsgBox ("Monat erfolgreich erstellt")
End Sub

Ungetestetm, sollte aber eigentlich funktionieren
Gruss Rainer

Anzeige
AW: Tabellenblatt anlegen
26.03.2008 15:02:30
Rudi
Vielen Dank euch beiden,
funktioniert wunderbar.
Gruss
Rudi

AW: Tabellenblatt anlegen
26.03.2008 14:13:37
Daniel
Hi
hier kann man über die Fehlerbehandlung recht einfach feststellen, ob ein Blatt schon vorhanden ist oder nicht:

Private Sub CommandButton1_Click()
Dim shName As String
shName = Format(DateSerial(Year(Date), Month(Date) - 2, 1), "MMMM YYYY")
Err = 0
On Error Resume Next
Sheets(shName).Select
Select Case Err
Case 0
MsgBox "Blatt existiert bereits"
Case Else
Sheets("Hauptzähler").Copy Before:=Sheets(1)
ActiveSheet.Name = shName
MsgBox ("Monat erfolgreich erstellt")
End Select
On Error GoTo 0
End Sub


Gruß, Daniel

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige