Eingabe erzwingen
17.12.2003 09:28:51
Georg
habe das Makro hier aus dem Forum. Was muss ich ändern, wenn der Eingabebereich nicht nur C11, sondern C11-C35 ist.
Bei einem Eintrag in einer Zeile im Bereich C11-C35 soll in der jeweiligen Zeile in der Spalte E (E11-E35) eine Eingabe erzwungen werden.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [C11] = "" Then Exit Sub
If [e11] = "" Or Len([e11]) <> 6 Or IsNumeric([e11]) = False Then
[e11].Select
End If
End Sub
Vielen Dank und Grüße
Georg