leere zellen erkennen
01.10.2003 09:27:04
nina
Was muss ich ändern?? (grübel)
Private Sub worksheet_change(ByVal target As Range)
'springe nach unten
If target.Row = 14 Then Cells(target.Row + 3, target.Column).Select
If target.Row = 24 Then Cells(target.Row + 4, target.Column).Select
If target.Row = 45 Then Cells(target.Row + 5, target.Column).Select
'Ende der Eingaben
If target.Address = "$V$55" Then
Range("$V$55").Select
'und Erinnerung
MsgBox "So nun ist aber die Tabelle voll !"
Else
'und nach oben springen:
If target.Row = 55 Then Cells(7, target.Column + 1).Select
End If
End Sub
Lieben Gruß Nina