Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
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
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige