Herbers Excel-Forum - das Archiv

Spalte auf einen vorhandenen Wert prüfen

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
Excel-Beispiele zum Thema "Spalte auf einen vorhandenen Wert prüfen"
Vorkommen von Zahlenreihen in Spalten Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen Spalten/Zeilen aus- und einblenden
Zeilen und Spalten über ein Drehfeld ein- und ausblenden In einem Dialog ausgewählte Spalten drucken
Spalten bedingt summieren und Zellen formatieren Abfrage der markierten Spalten