Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vergleich Bereiche mit VBA

Vergleich Bereiche mit VBA
02.12.2004 10:38:16
Fab
Hallo
Ich habe im Bereich A1:A3 die Werte 1, 2 und 3, im Bereich B1:B3 die Werte 7, 8 und 9, im Bereich C1:C3 die Werte 4, 5 und 6 und im Bereich D1:D3 die Werte 1, 2, 3. Nun möchte ich, dass ein Makro die Bereiche aus den Spalten B bis D mit dem Bereich A1:A3 vergleicht. Wenn ein Bereich mit dem Bereich A1:A3 übereinstimmt, dann soll das Makro in Zelle A4 "stimmt überein" reinschreiben.
Danke und Gruss
Fab

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Vergleich Bereiche per Formel
Boris
Hi Fab,
ne Formellösung:
{=LINKS("Stimmt überein";99*ODER(UND(A1:A3=B1:B3);UND(A1:A3=C1:C3);UND(A1:A3=D1:D3)))}
{geschweifte Klammern} nicht eingeben, sondern Formelingabe mit Strg-Shift-Enter abschließen. Das erzeugt sie.
Grüße Boris
http://www.excelformeln.de
AW: Vergleich Bereiche per Formel
02.12.2004 11:10:05
Fab
Hallo Boris
Danke dir für deine Lösung. Ich bräuchte aber eine VBA-Lösung.
Gruss
Fab
Per VBA
Boris
Hi Fab,
zum Beispiel mit ner kleinen Schleife:
Option Explicit

Sub aaa()
Dim iRow As Integer, iCol As Integer, iCount As Integer
For iCol = 2 To 4
For iRow = 1 To 3
iCount = iCount - (Cells(iRow, iCol) = Cells(iRow, 1))
Next iRow
If iCount = 3 Then [a4] = "Stimmt überein": Exit Sub
iCount = 0
Next iCol
End Sub

Grüße Boris
Anzeige
AW: Per VBA
02.12.2004 17:41:57
Fab
Hallo Boris
Habe deine Antwort erst jetzt gesehen. Das Makro funktioniert bestens!
Vielen Dank.
Fab

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige