Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Prüfen ob Tabellenname schon vorhanden

Prüfen ob Tabellenname schon vorhanden
01.01.2005 17:22:41
Susann-Marie
Hallo,
gibt es ein Makro (für das Tabellenblatt) mit dem ich überprüfen kann, ob der Wert der in die Zellen A3 bis A500 eingeben wird schon als Tabellenname vorhanden ist und dann am besten die Eingabe wieder löscht.
Die Eingabe des Wertes soll nur zugelassen werden, wenn der Wert nicht schon als Tabelle vorhanden ist!
Kennt sich einer das aus?
Susann-Marie
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Tabellenname schon vorhanden
01.01.2005 18:04:08
NE
Hallo,
meinst Du ganz grob sowas:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
With Target
If .Column = 1 And .Row >= 3 Or .Row <= 500 Then
For Each sh In ActiveWorkbook.Worksheets
If sh.Name = .Value Then
.Value = ""
.Select
Exit For
End If
Next
End If
End With
End Sub

Gruss Nancy
Anzeige
AW: Prüfen ob Tabellenname schon vorhanden
01.01.2005 18:15:41
Matthias
Hallo Susann-Marie,
mein Vorschlag: (Achtung! Nichts für On-Error-Resume-Next-Feinde!)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A500")) Is Nothing Then
Dim z As Range
Dim dummy As String
For Each z In Target
On Error Resume Next
dummy = Sheets(z.Value).Name
If Err.Number = 0 Then
'kein Fehler: Wert als Tabelle vorhanden!
On Error GoTo 0
MsgBox """" & dummy & """ existiert schon als Tabellenblatt!"
Application.EnableEvents = False
z.ClearContents
Application.EnableEvents = True
End If
Err.Clear
On Error GoTo 0
Next z
End If
End Sub
Grüße,
Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige