Zahlen in anderen Tabellen vergleichen

Adi · 2009-01-25T21:39:13+00:00

Hallo ich könnte Hilfe gebrauchen, in den 6 Tabellen werden in Spalte A A5:A36 willkürlich Zahlen eingetragen. Es darf keine Zahl zweimal vorkommen. Ein Makro sollte dafür sorgen. Gruß Adi https://www.herber.de/bbs/user/58785.xls

Hallo Rainer,
war wohl gestern doch zu späht, Danke.
Was habe ich den da für einen Quatsch gemacht?
Hier die Korrigierte Version.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim myTab As Worksheet
Dim Kontrolle As Boolean
Dim Wert As Variant
Dim iCounter As Integer
Kontrolle = False
Wert = Target.Value

With Application
 .EnableEvents = False
    
  With Application.WorksheetFunction
    For Each myTab In ThisWorkbook.Worksheets
     
     If Left(Sh.Name, 3) = "Bel" Then
       
       If .CountIf(myTab.Columns(1), Target) > 0 Then
        
        iCounter = iCounter + .CountIf(myTab.Columns(1), Target)
            If iCounter > 1 Then
             Kontrolle = True
             Exit For
            End If
       End If
     
     End If
    
    Next myTab
  End With
    
    If Kontrolle Then
       Target.Value = ""
       MsgBox "Der Wert " & Wert & " ist schon vergeben"
    End If

    .EnableEvents = True
 
End With

End Sub

Gruß Tino

Hallo,
dann grenzen wir den Bereich einfach ein.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim myTab As Worksheet
Dim Kontrolle As Boolean
Dim Wert As Variant
Dim iCounter As Integer
Kontrolle = False
Wert = Target.Value

With Application
 .EnableEvents = False
    
  With Application.WorksheetFunction
    For Each myTab In ThisWorkbook.Worksheets
     
     If Left(Sh.Name, 3) = "Bel" Then
       
       If .CountIf(myTab.Range("A5:A36"), Target) > 0 Then
        
        iCounter = iCounter + .CountIf(myTab.Columns(1), Target)
            If iCounter > 1 Then
             Kontrolle = True
             Exit For
            End If
       End If
     
     End If
    
    Next myTab
  End With
    
    If Kontrolle Then
       Target.Value = ""
       MsgBox "Der Wert " & Wert & " ist schon vergeben"
    End If

    .EnableEvents = True
 
End With

End Sub

PS: ich heiße Tino, nicht Timo (so viel Zeit muss sein ;-))
Gruß Tino

Zahlen in anderen Tabellen vergleichen

Forumthread: Zahlen in anderen Tabellen vergleichen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zahlen in anderen Tabellen vergleichen

Forumthread: Zahlen in anderen Tabellen vergleichen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread