Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
AW: probiere es mal so
30.07.2009 17:41:28
stefan
danke dir, das hilft. :-)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige