Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich durchsuchen

Forumthread: Bereich durchsuchen

Bereich durchsuchen
31.07.2021 17:09:23
Eberhard
Hallo zusammen
Ich möchte in zwei Bereichen prüfen ob der Inhalt(Text) der gleiche ist. Doch irgendwie funktioniert mein Code nicht!
Kann mir jemand behilflich sein?

With Worksheets(FrameNumber)
If .Range(.Cells(CommandButtonNumber, 2), .Cells(CommandButtonNumber, 6))  .Range(.Cells(CommandButtonNumber + 1, 2), .Cells(CommandButtonNumber + 1, 6)) Then
MsgBox "gleich"
Else
MsgBox "ungleich"
End If
End With
Gruss Daniel
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich durchsuchen
31.07.2021 17:16:14
Hajo_Zi
Hallo Daniel,
Du kannst nur einzelne Zellen vergleichen.

Sub nmj()
With Worksheets(FrameNumber)
BoGleich = False
For Each RaZelle In .Range(.Cells(CommandButtonNumber, 2), .Cells(CommandButtonNumber, 6))
If RaZelle  razele.Offset(1, 0) Then
BoGleich = True
Exit For
End If
Next RaZelle
If BoGleich Then
MsgBox "ungleich"
Else
MsgBox gleich
End If
End With
End Sub
GrußformelHomepage
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige