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

doppelte anzeigen in MsgBox

Forumthread: doppelte anzeigen in MsgBox

doppelte anzeigen in MsgBox
02.02.2005 16:04:21
Ulf
Hallo ihr Excelprofis
In [P6:P15973] stehen Zahlen aber es sind auch leere Zellen vorhanden.
Ich möchte, mit Vba, die Zahl in eine MsgBox angezeigt haben, die in [P6:P15973] doppelt vorkommt.
im voraus vielen Dank
Ulf
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte anzeigen in MsgBox
02.02.2005 18:16:47
Josef
Hallo Ulf!
Viel Spass!


      
Option Explicit
Sub DoppelteInBereich()
Dim rng As Range
Dim arr As Variant, tmp() As Variant
Dim n As Long, d As Long, x As Long
Dim m As Integer
Dim meldung As String
Dim blnDbl As Boolean
Set rng = Range("P6:P15973")
d = -1
arr = rng
   For m = 1 To UBound(arr, 2)
      For n = 1 To UBound(arr, 1)
         If arr(n, m) <> "" And Application.CountIf(rng, arr(n, m)) > 1 Then
            If d < 0 Then
               d = d + 1
               ReDim Preserve tmp(d)
               tmp(d) = arr(n, m)
               meldung = meldung & vbTab & vbTab & arr(n, m) & vbLf
            Else
               blnDbl = False
            
               For x = 0 To UBound(tmp)
                  If tmp(x) = arr(n, m) Then blnDbl = True: Exit For
               Next
               
               If Not blnDbl Then
                  d = d + 1
                  ReDim Preserve tmp(d)
                  tmp(d) = arr(n, m)
                  meldung = meldung & vbTab & vbTab & arr(n, m) & vbLf
               End If
               
            End If
         End If
      Next
   Next
If meldung <> "" Then
meldung = "Doppelte im Bereich """ & rng.Address(0, 0) & """ !" & Space(20) & _
                  vbLf & vbLf & meldung
MsgBox meldung, , "Doppelt"
End If
End Sub 
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: doppelte anzeigen in MsgBox
Ulf
Hallo Sepp
Danke funktioniert super.
Gruß Ulf
;

Beliebteste Forumthreads (12 Monate)

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