Tabellenblatt namen prüfen (VBA) Fehlerbehandlung

Hallo Forum,
ich möchte in einem Modul eine Fehlerbehandlung durchführen, wo die Namen der einzelnen Tabellenbätter geprüft werden. Wenn die Namen falsch sind soll eine Fehlermeldung ausgegeben werden, ansonsten soll eine andere Prozedur gestartet werden.
die Lage sieht eigentlich so aus ich habe vier Tabellenblätter, diese werden per Querry aus einen anderen Programm mit Daten gefüllt. Die T.Blätter heissen zum Beispiel Termine, Material, Obligo und Daten. Sie könnten aber auch Bw, Bestell, Bericht und Auswertung heissen oder eine Kombination aus den Namen aber meistens heissen Sie so Termine, Material, Obligo und Daten.
Ich hab mal probiert, die Namen direkt setzen, ungefähr so.


Sub test ()
Tabelle1.Name = "Termine"
Tabelle2.Name = "Material"
Tabelle3.Name = "Obligo"
Tabelle4.Name = "Daten"
End Sub

Ich möchte dem User aber nur einen Hinweis geben, dass die Tabellennamen falsch sind und er sein Querry anpassen muss.
vielen Dank
Mathias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub NamenTesten() Dim arrTab(4), i As Integer, strMldg As String arrTab(1) = "Termine" arrTab(2) = "Material" arrTab(3) = "Obligo" arrTab(4) = "Daten" For i = 1 To 4 If Sheets(i).Name <> arrTab(i) Then strMldg = MsgBox("Name der Tabelle " & i & " ist falsch", vbOKOnly + vbCritical, "Fehler") End If Next i End Sub

Sub Fehler_vermeiden() On Error GoTo errorhandler 'hier käme jetzt Dein Code Worksheets("Tabelle2").Range("A1").Copy Destination:=Worksheets("Tabelle1").Range("A1") MsgBox Worksheets("Tabelle1").Range("A1") errorhandler: If Err.Number = 9 Then MsgBox "Mindestens ein Tabellenblattname ist falsch, Query überprüfen" Else MsgBox "Es ist ein allgemeiner Fehler aufgetreten." End If End Sub

Hallo Mathias,
aha. ;-)
Ich hatte folgenden Code vorgeschlagen:


Sub Fehler_vermeiden()
On Error GoTo errorhandler
'hier käme jetzt Dein Code
Worksheets("Tabelle2").Range("A1").Copy Destination:=Worksheets("Tabelle1").Range("A1")
MsgBox Worksheets("Tabelle1").Range("A1")
errorhandler:
If Err.Number = 9 Then
MsgBox "Mindestens ein Tabellenblattname ist falsch, Query überprüfen"
Else
MsgBox "Es ist ein allgemeiner Fehler aufgetreten."
End If
End Sub

Die beiden Zeilen
Worksheets("Tabelle2").Range("A1").Copy Destination:=Worksheets("Tabelle1").Range("A1")
MsgBox Worksheets("Tabelle1").Range("A1")
haben nur Beispielcharakter. Es soll halt irgendwas passieren mit Tabelle1 und Tabelle2 und Du solltest den Code in einer jungfräulichen Datei testen, die eben keine Tabelle2 enthält. Wenn du den Code anwenden willst, mußt Du die beiden Zeilen löschen und an deren Stelle Deinen Code hineinkopieren. Dann sieht das Ganze so aus:


Sub Fehler_vermeiden()
On Error GoTo errorhandler
'hier käme jetzt Dein Code
errorhandler:
If Err.Number = 9 Then
MsgBox "Mindestens ein Tabellenblattname ist falsch, Query überprüfen"
Else
MsgBox "Es ist ein allgemeiner Fehler aufgetreten."
End If
End Sub

Die Zeilen bedeuten folgendes:
On Error GoTo errorhandler
Wenn ein Laufzeitfehler auftritt, springe im Programm zur Stelle
errorhandler:
Dann läuft der Code ab da weiter. Zunächst wird geprüft, ob die Nummer des Laufzeitfehlers gleich 9 ist, da dies der Fehler ist der auftritt, wenn Du einen Tabellennamen "ansprichst" der nicht existiert. Wenn =9 dann erste Meldung, sonst 2. Meldung.
Zu Deiner Frage: Wenn ein Blattname nicht existiert, tritt der Laufzeitfehler auf, auch dann wenn die anderen Blattnamen korrekt sind. Soll das nicht so sein?
Es wäre vielleicht günstig, wenn Du mal den kompletten Code postest, den Du verwendest.
Gruß
Martin Beck

Beliebteste Forumthreads (12 Monate)

Tabellenblatt namen prüfen (VBA) Fehlerbehandlung

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblatt namen prüfen (VBA) Fehlerbehandlung

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread