Thema Datum  Von Nutzer Rating
Antwort
16.02.2008 03:19:16 Blochi
NotSolved
16.02.2008 13:23:52 Holger
NotSolved
17.02.2008 01:25:26 Blochi
NotSolved
Blau Aw:Zellen vergleich
 17.02.2008 09:24:09 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
17.02.2008 09:24:09		 Views:
1017		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Zellen vergleich
Hallo Blochi,
ich gehe davon aus, dass du alle befüllten Zellen in Zeile 1 paarweise auf Übereinstimmung einer Zahl überprüfen willst. Dazu habe ich im Wesentlichen nur zwei For-Next-Schleifen um das Makro herum gelegt.
Goto Fertig: Wenn eine Übereinstimmung gefunden wurde, braucht der Rest der Schleifen nicht durchlaufen zu werden. Exit Sub geht nicht, weil ich noch die MsgBox ("Alle Werte verschieden.") für den Fall aunzeigen lassen wollte, dass alle Zahlen paarweise verschieden sind.

Sub Test_Vergleich_2()
lSp = Range("IV1").End(xlToLeft).Column 'letzte benutzte Spalte in Zeile 1
If lSp < 2 Then MsgBox ("Zu wenig Zellen zum Vergleichen!"): Exit Sub
For k = 1 To lSp - 1 'läuft für die 1. Zelle für den Vergleich
For m = k + 1 To lSp 'läuft für die 2. Zelle für den Vergleich
a = Split(Cells(1, k), ",") 'zerlegt die 1. Zelle in Teilstrings und speichert diese im Array a
b = Split(Cells(1, m), ",") 'dito für 2. Zelle und Array b
For i = 0 To UBound(a) 'UBound liefert die obere Arraygrenze
For j = 0 To UBound(b)
If a(i) = b(j) Then
MsgBox ("Mindestens" + str(a(i)) + " befindet sich in mehreren Zellen")
GoTo fertig 'wenn Übereinstimmung, braucht Rest der Schleifen nicht durchlaufen zu werden
End If
Next j
Next i
Next m
Next k
MsgBox ("Alle Werte verschieden.")
fertig:
End Sub

Gruß
Holger


Blochi schrieb am 16.02.2008 03:19:16:

Hallo,

ich habe schon wieder ein Problem und hoffe das ihr mir genau so schnell helfen könnt wie das letzte Mal.

Also mein Problem:
Ich habe zwei Zellen die vergleichen möchte. Besser gesagt den Inhalt.
Zelle1 = 340, 327, 342, 29, 335; Zelle2= 29, 146, 41, 460, 37, 106
Ich möchte herrausfinden ob Zelle1 eine übereinstimmende Zahl mit Zelle2 hat.
im Prinzip reicht es mir wenn eine doppelte zahl gefunden wird und das ganze als msgbox ausgegeben wird. die Zahlen sind immer von
", " getrennt. evtl kann man ja damit was anfangen.

Danke im vorraus
Blochi

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.02.2008 03:19:16 Blochi
NotSolved
16.02.2008 13:23:52 Holger
NotSolved
17.02.2008 01:25:26 Blochi
NotSolved
Blau Aw:Zellen vergleich
 17.02.2008 09:24:09 Holger
NotSolved