Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Wert in Bereich finden als Bedingung


Betrifft: Wert in Bereich finden als Bedingung von: Mark
Geschrieben am: 04.12.2017 13:09:12

Hallo liebes Forum!

Ich habe folgendes Problem:

Ich möchte in diesen Code
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("M2")) Is Nothing And Range("M2") <> "" Then

Nicht nur kontrollieren ob es der richtige Bereich ist oder dieser nicht leer ist sondern auch ob sich der Wert aus M2 in Spalte N:N wiederfindet.

Leider weiß ich nicht wie ich es ebenfals in das IF einbaue.
Ich hoffe mir kann einer von euch weiterhelfen :)
Danke im Vorhinaus!

  

Betrifft: AW: Wert in Bereich finden als Bedingung von: Werner
Geschrieben am: 04.12.2017 13:20:40

Hallo Mark,

meinst du so?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M2")) Is Nothing And Target <> "" Then
    If WorksheetFunction.CountIf(Columns(14), Target.Value) > 0 Then
        MsgBox "Hurra"
    End If
End If
End Sub
Gruß Werner


  

Betrifft: AW: Wert in Bereich finden als Bedingung von: Mark
Geschrieben am: 04.12.2017 13:31:48

Ganz genau!
Vielen Dank genau sowas habe ich gesucht :)


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 04.12.2017 13:36:46




Beiträge aus den Excel-Beispielen zum Thema "Wert in Bereich finden als Bedingung"