Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
18.04.2024 16:33:24
Anzeige
Archiv - Navigation
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige