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
Anzeige
Inhaltsverzeichnis

Existiert Arbeitsbatt?

Forumthread: Existiert Arbeitsbatt?

Existiert Arbeitsbatt?
07.01.2003 15: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 16: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 17: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 19: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum