Bereich durchsuchen

Forumthread: Bereich durchsuchen
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Bereich durchsuchen

Bereich durchsuchen

31.07.2021 19: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

AW: Bereich durchsuchen

31.07.2021 19:16:14

Hajo_Zi

AW: Bereich durchsuchen

31.07.2021 19: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