Übereinstimmung in variablem Range feststellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
meinst Du so?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rngBereich As Range
Dim booHomogen As Boolean

Set rngBereich = Intersect(Selection, ActiveSheet.UsedRange)

If Not rngBereich Is Nothing Then
    Cancel = True 'rechtsklick abbrechen 
    With Application.WorksheetFunction
        For Each rngBereich In Selection
            If rngBereich <> "" Then
                If .CountIf(Selection.Offset(0, 6), rngBereich) > 0 Then
                        MsgBox "Auswahlmenge homogen", vbInformation
                        booHomogen = True
                        'hier weiter arbeiten 
                        '... 
                        '... 
                        Exit For 'Schleife verlassen 
                End If
            End If
        Next rngBereich
    End With
    
    If Not booHomogen Then
        MsgBox "Auswahlmenge nicht homogen", vbExclamation
    End If
End If
End Sub

Wenn der markierte Bereich aber zu groß wird, kann es lang dauern,
dann würde ich dies über ein Array machen, dies wird schneller durchlaufen.
Gruß Tino

Hallo Jürgen,
so?

' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Dim rng As Range, rngC As Range
  Cancel = True
  Set rng = Selection
  If rng.Columns.Count >= 6 Then
    Set rngC = rng.Columns(6)
    If Application.CountIf(rngC, rngC.Cells(1, 1)) < rngC.Cells.Count Then
      MsgBox "Inhomogen"
    Else
      MsgBox "Homogen"
      'weiter...
    End If
  Else
    MsgBox "Bereich nicht auswertbar"
  End If
End Sub

Gruß Sepp

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Selection(1).Value Selection(1).Offset(, 6).Value Then MsgBox "Auswahlmenge nicht homogen" Exit Sub Else MsgBox "hier mach ich weiter" End If End Sub

Beliebteste Forumthreads (12 Monate)

Übereinstimmung in variablem Range feststellen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Übereinstimmung in variablem Range feststellen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread