Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
196to200
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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!
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige