Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Existiert Arbeitsbatt?

Forumthread: Existiert Arbeitsbatt?

Existiert Arbeitsbatt?
07.01.2003 14:54:03
Willie
Wie kann ich Arbeitsblätter zählen!
bzw. prüfen, ob für das Jahr 2003 schon
ein Arbeitsblatt existiert oder nicht.
Wenn nein soll eines angelegt werden.
Anlegen wollte ich es so!
sheets.Add Type:=xlWorksheet, Count:=1, After:=sheets(1)
sheets(2).Name = "2003"
Kann mir jemand helfen! Denn dasselbe muß ich an jedem 1. im Monat auch pfüfen!

Danke schon mal
Willie

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Existiert Arbeitsbatt?
07.01.2003 15:31:48
Otto Ecker
Hallo Willie

dim wks as worksheet
dim jahr as string
jahr = worksheets("Tabelle1")cells(1,1).value
for each wks in worksheets
if wks.name=jahr then
msgbox"Bereits vorhanden"
else
sheets.add...
end if

Gruß Otto

Re: Existiert Arbeitsbatt?
07.01.2003 16:25:02
Willie
Das funktioniert leider nicht so ganz!
Er legt zwar die Tabelle an bekommt dann beim
nächsten druch lauf einen Fehler: Abreitsblatt
kann nicht doppelt angelegt werden!
Anzeige
Re: Existiert Arbeitsbatt?
07.01.2003 18:14:42
Habe es so gelöst!
Sub Jahrvorhanden()
Dim Blatt As Worksheet
x = 1
For Each Blatt In ThisWorkbook.sheets
'MsgBox sheets(x).Name
If sheets(x).Name = "2003" Then
y = "ja"
MsgBox "Existiert!"
Exit Sub
Else
y = "nein"
End If
x = x + 1
Next
If y = "nein" Then
sheets.Add Type:=xlWorksheet, Count:=1, After:=sheets(1)
sheets(2).Name = "2003"
End If

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige