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

If / Else funzt net :-(

Forumthread: If / Else funzt net :-(

If / Else funzt net :-(
stefan
Das Schlauchstehen geht weiter
For i = 1 To Sheets.Count
If SheetName = Sheets(i).Name Then Exit Sub
End If
Next i
Sheets.Add
ActiveSheet.Name = SheetName
Was ist hier falsch? Ich will abgleichen, ob es das Sheet schonmal gibt. Wenn ja, abbrechen - ansonsten neu anlegen.
Danke Euch
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
probiere es mal so
30.07.2009 17:24:27
Matthias
Hallo
Option Explicit
Sub neuesBlatt()
Dim SheetName As String
Dim lng As Long
SheetName = "neuesBlatt"
For lng = 1 To Worksheets.Count
If UCase(SheetName) = UCase(Worksheets(lng).Name) Then MsgBox "Schon vorhanden": Exit Sub
Next
Worksheets.Add.Name = "neuesBlatt"
End Sub
Gruß Matthias
Anzeige
AW: probiere es mal so
30.07.2009 17:41:28
stefan
danke dir, das hilft. :-)
;

Beliebteste Forumthreads (12 Monate)

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