Re: Error Syntax
19.05.2003 22:48:22
jörg
Hi Andre
Danke für deine Rückmeldung! Komme aber damit weiterhin nicht zurecht.
Habe zwar jetzt eine andere möglichkeit zwischen Groß- und Kleinschreibung zu unterscheiden, diese Möglichkeit führt aber wieder bei völlig femden Werten zu einem 'Laufzeitfehler 9'
Sub Schaltfläche_OK_Click()
Dim kl As String
kl = KürzelLöschLehrer
If Sheets(kl).Name = kl Then 'In dieser Zeile taucht die Fehlermeldung auf, wenn es keine Zeile gibt die in der Spalte A einen entsprechenden Wert hat'
'On Error GoTo FalschesLehrerkürzel
Sheets(kl).Delete
'On Error GoTo 0
Application.ScreenUpdating = False
Sheets("Lehrer").Activate
'Zeile des zu löschenden Lehrers im Tabelle"Lehrer" suchen und löschen
Dim irow As Integer
irow = 8
ActiveSheet.Unprotect
Cells(8, 1).Activate
Do Until (ActiveSheet.Cells(irow, 1) = kl)
irow = irow + 1
Loop
Cells(irow, 1).Activate
Rows(irow).Select
Selection.Delete Shift:=xlUp
Cells(irow + 3, 1).Select
ActiveSheet.Protect
Application.ScreenUpdating = True
LehrerLöschen.Hide
ElseIf Sheets(kl).Name <> kl Then
FalschesLehrerkürzel
ElseIf Sheets(kl) <> kl Then
FalschesLehrerkürzel
'
'Exit Sub
'FalschesLehrerkürzel:
'MsgBox "Sie haben ein falsches Lehrerkürzel eingegeben!" & Chr(13) & "Beachten Sie bitte die Groß- und Kleinschreibung!"
End If
Unload LehrerLöschen
End Sub
Nun