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

Fehlermedung beim Erstellen neuer Tabellenblätter

Fehlermedung beim Erstellen neuer Tabellenblätter
03.06.2003 19:06:06
Jörg
Schönen Abend
Ich hab ein Problem in einer meiner Prozeduren.
Es wird ein neues Tabellenblatt mit dem Wert eines Formularfelds benannt. Dabei soll aber bei falschen Eingaben eine entsprechende Fehlermeldung auftauchen.
1. Möglichkeit Keine Eingabe -> funktioniert
2. Möglichkeit wenn der entsprechende Tabellenname bereits existiert -> funktioniert nicht :-((((

~'Fehlerroutine bei leerem Lehrerkürzel~

If k = "" Then
MsgBox "Das Lehrerkürzel darf nicht leer sein!"

Application.DisplayAlerts = False

Unload Lehrerdaten
ActiveSheet.Delete
Application.DisplayAlerts = True

Sheets("Lehrer").Activate
Lehrer_allgemein_ausblenden
Exit Sub
End If

'Fehlerroutine bei vorhandenem Lehrerkürzel

If Exist Sheets.Name.(k) Then
=> hier spießsts!
MsgBox "Dieses Lehrerkürzel ist schon vorhanden!"
Application.DisplayAlerts = False
Unload Lehrerdaten
ActiveSheet.Delete
Application.DisplayAlerts = True

Sheets("Lehrer").Activate
Lehrer_allgemein_ausblenden
Exit Sub
End If
ActiveSheet.Name = k

~ende~

Ich habs auch schon mit On Error probiert und kam auch auf keinen grünen Zweig.

Danke für eure Hilfe!
j.




5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fehlermedung beim Erstellen neuer Tabellenblätter
03.06.2003 19:36:40
Ramses

Hallo,

"EXIST" kann nicht auf Sheets angewendet werden.
Da kenne ich nur diesen Workaround

Gruss Rainer

Re: Fehlermedung beim Erstellen neuer Tabellenblätter
03.06.2003 19:54:44
jörg

Hi Rainer, danke für deine Mühe!
Hab jetzt meinen Code entsprechend angepasst.
Die Msgbox erscheint auch richtig, wenn das Kürzel exakt gleich ist, wenn allerdings das gleiche Kürzel in Groß-Kleinschreibung verändert wird (z.B FE - fe), erhalte ich einen Laufzeitfehler 1004, Tabellenblatt mit gleichem Namen kann nicht erstellt werden.
Entscheidend hier dann die letzte Zeile des eingefügten Codes.
ActiveSheet.Name = k

Gibts da noch eine Idee??;-)

Danke Jörg

'Fehlerroutine bei vorhandenem Lehrerkürzel

For i = 1 To Worksheets.Count
If Worksheets(i).Name = k Then
MsgBox "Dieses Lehrerkürzel existiert schon"
Application.DisplayAlerts = False

Unload Lehrerdaten
ActiveSheet.Delete
Application.DisplayAlerts = True

Sheets("Lehrer").Activate
Lehrer_allgemein_ausblenden



Exit Sub
End If
Next



ActiveSheet.Name = k



Anzeige
Re: Fehlermedung beim Erstellen neuer Tabellenblätter
03.06.2003 20:02:25
jörg

Hi Rainer, danke für deine Mühe!
Hab jetzt meinen Code entsprechend angepasst.
Die Msgbox erscheint auch richtig, wenn das Kürzel exakt gleich ist, wenn allerdings das gleiche Kürzel in Groß-Kleinschreibung verändert wird (z.B FE - fe), erhalte ich einen Laufzeitfehler 1004, Tabellenblatt mit gleichem Namen kann nicht erstellt werden.
Entscheidend hier dann die letzte Zeile des eingefügten Codes.
ActiveSheet.Name = k

Gibts da noch eine Idee??;-)

Danke Jörg

'Fehlerroutine bei vorhandenem Lehrerkürzel

For i = 1 To Worksheets.Count
If Worksheets(i).Name = k Then
MsgBox "Dieses Lehrerkürzel existiert schon"
Application.DisplayAlerts = False

Unload Lehrerdaten
ActiveSheet.Delete
Application.DisplayAlerts = True

Sheets("Lehrer").Activate
Lehrer_allgemein_ausblenden



Exit Sub
End If
Next



ActiveSheet.Name = k



Anzeige
Re: Fehlermedung beim Erstellen neuer Tabellenblätter
03.06.2003 20:19:14
Ramses

Hallo Jörg,

wenn auf die Gross- und Kleinschreibung keine Rücksicht genommen werden soll, ändere die Zeile

If UCASE(Worksheets(i).Name) = UCASE(k) Then

Dann wird alles zuerst mal in Grossbuchstaben umgewandelt und verglichen.

Gruss Rainer

Re: funkt
03.06.2003 20:31:53
jörg

Danke Rainer!
Es funktioniert soweit.

Ich hab da weiter unten was anderes gepostet.
Ich hoff ich bin nicht zu unverschämt, falls dir was gscheite einfällt???


LG.
Jörg

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige