Supportnet / Forum / WindowsXP

Hallo Gemeinde Kann mir bitte Jemand helfen! Wie komme ich zur Eingabe-Zelle zurück? Dieses Sub wird erst nach Drücken der Eingabetaste, oder einer der Pfeiltasten aufgerufen. Wie weiss ich, wohin ich zurück muss? Vielen Dank für Eure Hilfe Private Sub Worksheet_Change(ByVal Target As Range) Dim Zellbereich As Range Set Zellbereich = Range("B1:B13") Dim posMerkerZeile As Integer, posMerkerSpalte As Integer posMerkerZeile = ActiveCell.Row posMerkerSpalte = ActiveCell.Column mWB = ActiveWorkbook.Name mWS = ActiveCell.Worksheet.Name If Intersect(Target, Zellbereich) Is Nothing Then Exit Sub Else If CStr(Target.Value) <> "5" Then MsgBox "Falscher Wert (" & CStr(Target.Value) & ")", _ vbOKOnly + vbCritical, "File-Name: (" & mWB + ") Tabellen-Blatt: (" & mWS + ")" Cells(posMerkerZeile, posMerkerSpalte).Select End If End If End Sub

• Hilfe bei der Erstellung eines Makros
• wenn in einer zelle ein bestimmter wert steht, soll in einer anderen zelle keine eingabe möglich sein
• Inhalt einer Zelle in Abhängigkeit vorgeben
• Formeln auswerten in Abhängigkeit einer Eingabe
• Nach Eingabe in Zelle prüfen, ob Bedingungen erfüllt werden