Spalte auf einen vorhandenen Wert prüfen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Spalte auf einen vorhandenen Wert prüfen
von: Peter
Geschrieben am: 11.03.2005 12:09:19
Hallo zusammen,
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
Bild

Betrifft: AW: Spalte auf einen vorhandenen Wert prüfen
von: Matthias G
Geschrieben am: 11.03.2005 12:13:23
Hallo Peter,
mein Vorschlag:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Cells(Target.Row, 11) <> "" Then
        MsgBox "in Spalte K steht was!"
        ' hier könnte dein Makroaufruf stehen!
    End If
End If
End Sub
Gruß Matthias
Bild

Betrifft: AW: Spalte auf einen vorhandenen Wert prüfen
von: Peter
Geschrieben am: 14.03.2005 07:03:11
Hallo Matthias,
danke Dir! Das war genau das was ich suchte....
Gruß, Peter
Bild

Betrifft: AW: Spalte auf einen vorhandenen Wert prüfen
von: Martin Beck
Geschrieben am: 11.03.2005 12:15:15
Hallo Peter,

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsEmpty(Cells(Target.Row, 11)) Then
    MsgBox Cells(Target.Row, 11)
End If
End Sub

Gruß
Martin Beck
Bild

Betrifft: AW: Spalte auf einen vorhandenen Wert prüfen
von: Boris
Geschrieben am: 11.03.2005 12:15:23
Hi,

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not IsEmpty(Sh.Cells(ActiveCell.Row, "K")) Then
    MsgBox "Mach was..."
End If
End Sub

Grüße Boris
Bild

Betrifft: AW: ein Blatt oder alle Blätter prüfen?
von: Matthias G
Geschrieben am: 11.03.2005 12:27:04
Hallo Peter,
je nachdem solltest du das passende Ereignis wählen:
für alle Blätter:
in DieseArbeitsmappe:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
für ein bestimmtes Blatt
ins Codemodul des betreffenden Blattes:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Gruß Matthias
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spalte auf einen vorhandenen Wert prüfen"