Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
224to228
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
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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




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




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

Hallo Klaus!

Vielen Dank.

Gruß
F.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige