Herbers Excel/VBA-Archiv

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

Suchen, Meldung

• Suchen, Meldung von xtian vom 21.09.2020 14:47:21
• AW: vielleicht reicht ja schon ... - von neopa C am 21.09.2020 15:59:46
  • AW: vielleicht reicht ja schon ... - von xtian am 21.09.2020 16:04:25
    • AW: vielleicht reicht ja schon ... - von UweD am 21.09.2020 16:26:34
      • AW: vielleicht reicht ja schon ... - von xtian am 22.09.2020 08:18:26

Betrifft: Suchen, Meldung von: xtian
Geschrieben am: 21.09.2020 14:47:21

Guten Tag,
in der Spalte A steht sehr oft das Wort LOL. Sobald das Wort LOL jetzt 2x direkt nacheinander (z.B. A7+A8
oder A58+A59 oder A145+146) vorkommt, soll eine Meldung erfolgen und die beiden entsprechenden Zellen sollen
aktiviert werden. Ich bitte um eure Unterstützung.

Vielen Dank
Christian

  

Betrifft: AW: vielleicht reicht ja schon ...
von: neopa C
Geschrieben am: 21.09.2020 15:59:46

Hallo Christian,

... eine bedingte Formatierung dieser Zellen?

Markiere A2:A## und dann folgende bedingte Formatierungsformel:
=((A1="LOL")+("LOL"=A3))*("LOL"=A2)
und eine Farbe zuordnen.

Gruß Werner
.. , - ...

  

Betrifft: AW: vielleicht reicht ja schon ...
von: xtian
Geschrieben am: 21.09.2020 16:04:25

Hallo Werner,
vielen Dank für die Hilfe. Ich würde das gerne über VBA lösen.
Gruß
Christian

  

Betrifft: AW: vielleicht reicht ja schon ...
von: UweD
Geschrieben am: 21.09.2020 16:26:34

Hallo

- Rechtsclick auf den Tabellenblattreiter der Tabelle
- Code anzeigen
- Code rechts reinkopieren

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MSG As String, Z
    If Not Intersect(Target, Range("A2:A200")) Is Nothing Then
        For Each Z In Target
            If Z = "LOL" Then
                If Z.Offset(-1, 0) = "LOL" Then
                    Z.Offset(-1, 0).Resize(2, 1).Select
                    MSG = "Doppelt, hintereinander"
                ElseIf Z.Offset(1, 0) Then
                    Z.Resize(2, 1).Select
                    MSG = "Doppelt, hintereinander"
                End If
            End If
            If MSG <> "" Then MsgBox MSG
        Next Z
    End If
End Sub

Wird jetzt LOL eingetragen, wird die vorherigen und nachfolgende Zelle geprüft.



LG UweD

  

Betrifft: AW: vielleicht reicht ja schon ...
von: xtian
Geschrieben am: 22.09.2020 08:18:26

Hallo Uwe,
vielen lieben Dank.
Gruß
Christian

Beiträge aus dem Excel-Forum zum Thema "Suchen, Meldung"