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

Exists - Function

Forumthread: Exists - Function

Exists - Function
28.02.2003 09:09:50
Frederik Fuhrmann
Hallo!

Kann mir jemand sagen, wie ich abfrage ob ein Tabellenblatt existiert?

Gruß
Frederik

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Exists - Function
28.02.2003 09:13:14
Klaus Kunkler

Moin Frederik,
folgenden code habe ich aus der Recherche, sollte auf Dein Problem passen:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim Anlegen As Worksheet
For i = 1 To Worksheets.Count
If UCase(Worksheets(i).Name) = UCase(Me.TextBox1.Text) Then
MsgBox "Existiert schon"
Exit Sub
End If
Next i
Set Anlegen = Worksheets.Add
With Anlegen
.Name = Me.TextBox1.Text
.Move after:=Sheets(Sheets.Count)
End With
Unload Me
End Sub




Anzeige
oder so
28.02.2003 09:15:50
Klaus Kunkler

oder so:

Sub Tabelle_vorhanden()
TabName = "Tabelle4"
For Each ws In Worksheets
If ws.Name = TabName Then
MsgBox "Tabelle " & TabName & " ist vorhanden."
Exit Sub
End If
Next
MsgBox "Tabelle " & TabName & " ist nicht vorhanden."
End Sub




Re: oder so
28.02.2003 09:30:36
Frederik Fuhrmann

Hallo Klaus!

Vielen Dank.

Gruß
F.

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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