Makrofehler - Cursor verschwindet
29.02.2008 08:00:18
alex
habe eine Datei mit 2 Tabellen. 1. heißt "Leistungen DSA"; 2. heißt "Bearbeiternachweis".
in der 1. Tab. gebe ich werte ein, in der 2. Tab. wird ein vermerk angelegt wer, wann in Tab 1 etwas geändert hat.
Beide Blätter sind Kennwortgeschützt.
Problem: Seitdem ich in "Bearbeiternachweis" mit Blattschutz arbeite verschwindet der Cursor wenn ich in Tab1 "Leistungen DSA" etwas eingebe.
Entferne ich die Blattschutzgeschichte für "Bearbeiternachweis" aus dem Makro dann bleibt der Cursor in Tab.1 nachdem ich was eingebe.
muss euch mal mein Makro zeigen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim Zahl As Integer
Dim Schlagball As Integer
Dim Wurfball As Integer
Dim Schleuderball As Integer
Dim GeräteKombi As Integer
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "Mein Passwort"
Select Case Target.Column
Case 14, 17, 20, 22, 24, 25, 29, 31, 34, 38, 40, 47, 49, 51, 53, 55, 56
Sheets("Bearbeiternachweis").Unprotect "Mein Passwort"
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName & _
" - " & Date
Sheets("Bearbeiternachweis").Protect "Mein Passwort"
Case 33
For i = 1 To Len(Target.Value)
On Error GoTo w1
Zahl = Zahl & Mid(Target.Value, i, 1)
Next i
w1:
If Zahl = 50 Then
Target.Offset(0, 1).NumberFormat = "0.0"" sec"""
ElseIf Zahl = 75 Then
Target.Offset(0, 1).NumberFormat = "0.0"" sec"""
ElseIf Zahl = 1000 Then
Target.Offset(0, 1).NumberFormat = "[h]:mm"" min"""
ElseIf Zahl = 300 Then
Target.Offset(0, 1).NumberFormat = "[h]:mm"" min"""
ElseIf Zahl = 500 Then
Target.Offset(0, 1).NumberFormat = "[h]:mm"" min"""
End If
Sheets("Bearbeiternachweis").Unprotect "Mein Passwort"
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName & _
" - " & Date
Sheets("Bearbeiternachweis").Protect "Mein Passwort"
Case 34
For i = 1 To Len(Target.Value)
On Error GoTo w2
Zahl = Zahl & Mid(Target.Offset(0, -1).Value, i, 1)
Next i
w2:
If Zahl = 1000 Then
Target.Offset(0, 1).NumberFormat = "[h]:mm"" min"""
End If
Case 42
For i = 1 To Len(Target.Value)
On Error GoTo w3
Zahl = Zahl & Mid(Target.Value, i, 1)
Next i
w3:
If Zahl = 100 Then
Target.Offset(0, 1).NumberFormat = "[h]:mm"" min"""
ElseIf Zahl = Schlagball Then
Target.Offset(0, 1).NumberFormat = "0.0"" m"""
ElseIf Zahl = Wurfball Then
Target.Offset(0, 1).NumberFormat = "0.0"" m"""
ElseIf Zahl = Schleuderball Then
Target.Offset(0, 1).NumberFormat = "0.0"" m"""
ElseIf Zahl = GeräteKombi Then
Target.Offset(0, 1).NumberFormat = "0.0"" m"""
End If
Sheets("Bearbeiternachweis").Unprotect "Mein Passwort"
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName & _
" - " & Date
Sheets("Bearbeiternachweis").Protect "Mein Passwort"
Case 43
For i = 1 To Len(Target.Value)
On Error GoTo w4
Zahl = Zahl & Mid(Target.Offset(0, -1).Value, i, 1)
Next i
w4:
If Zahl = 100 Then
Target.Offset(0, 1).NumberFormat = "[h]:mm"" min"""
End If
Sheets("Bearbeiternachweis").Unprotect "Mein Passwort"
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName & _
" - " & Date
Sheets("Bearbeiternachweis").Protect "Mein Passwort"
End Select
ActiveSheet.Protect "red13", userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub
Weiss jemand woran das liegen könnte?
grüsse von
alex