Spalte auf einen vorhandenen Wert prüfen
11.03.2005 12:09:19
Peter
wenn ich mich in meinem Excelsheet auf eine Zelle klicke bzw. mit den Cursortasten anklicke, soll geprüft werden ob in dieser Zeile in Spalte "K" ein Wet steht. Steht dort ein Wert sollen ein paar Ereignisse ausgeführt werden.
Bsp: Ich bin in irgendeiner Zelle z. B. C5 und klicke Auf z.B. D10 -- In Zeile 10 steht ein Eintrag in Spalte "K" -- Jetzt sollen meine Ereignisse ausgeführt werden.
Hab das jetzt so weit, dass das nur klappt solange ich in der Spalte "A" bin.
Hier mal mein Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Columns("K") <> "" Then
MsgBox "Text"
ActiveCell.Offset(1, 0).Activate
End If
End Sub
Danke, Peter