Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
936to940
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Matrix in Matrix suchen (und ersetzen)

Matrix in Matrix suchen (und ersetzen)
21.12.2007 09:30:51
David
Hallo zusammen,
kann mir evtl. jemand sagen, wie man folgende Excel-Formel in VBA umsetzt:
=WENN(ISTNV(VERGLEICH(H9;User1;0));FALSCH;WAHR)
Zum Hintergrund:
Ich möchte in einer Matrix alle Werte durchlaufen lassen, und wenn die Bedingung (siehe oben) Wahr ist, soll der Zellinhalt durch einen bestimmten Wert ersetzt werden. Die Schleife etc. habe ich soweit fertig.
Mein Problem ist nun, dass ich den jeweiligen Wert einer Zelle nun nicht mit nur EINEM bestimmten vergleichen muss, sondern ob dieser in einer zweiten (kleineren) Matrix enthalten ist.
Als vereinfachtes Beispiel dargestellt:
in der Matrix
01 02 03 04
05 06 07 08
09 10 11 12
13 14 15 16
soll jeder Wert mit dieser hier
05
10
12
verglichen werden
und wenn der Wert einen Treffer hat, soll er ersetzt werden durch das Wort "Treffer".
Für konstruktive Hilfe wäre ich äußerst dankbar.

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

Betreff
Datum
Anwender
Anzeige
AW: Matrix in Matrix suchen (und ersetzen)
21.12.2007 09:47:00
Josef
Hallo David,
meinst du so?
Sub CompareMatrix()
Dim a As Variant, b As Variant
Dim l As Long, i As Integer, n As Integer

a = Range("A1:D4")
b = Array("05", "10", "12")

For l = 1 To UBound(a, 1)
    For i = 1 To UBound(a, 2)
        If Not IsError(Application.Match(a(l, i), b, 0)) Then a(l, i) = "treffer"
    Next
Next

Range("A1:D4") = a
End Sub

Gruß Sepp

Anzeige
AW: Matrix in Matrix suchen (und ersetzen)
21.12.2007 09:56:23
David
Mhh, könnte grundsätzlich funktionieren, bzw. darauf könnte ich aufbauen. Ein Problem sehe ich jetzt nur in der Suchmatrix. Diese mit festen Werten zu definieren, wird nicht funktionieren.
Die betreffende Datenmatrix hat eine Größe von ca. 20000x20000 Zellen, in jeder Zelle steht eine (einmalige) Zahl. Die Suchmatrix besteht nur aus einer Spalte, diese kann aber bis zu 400 Werten enthalten. Diese kann ich ja nicht alle einzeln in das Makro schreiben, zumal die Suchen/Ersetzen-Aktion nacheinander mit mehreren Suchmatrizen durchlaufen soll.
Diese Suchmatrix müsste sozusagen variabel sein, wenn das geht, würde ich im Dokument vorhandene Namen verwenden, die ich vorher definieren würde.

Anzeige
AW: Matrix in Matrix suchen (und ersetzen)
21.12.2007 09:59:00
Josef
Hallo David,
und wo ist das Problem?
Sub CompareMatrix()
Dim a As Variant, b As Variant
Dim l As Long, i As Integer, n As Integer

a = Range("matrix_")
b = Range("suchmatrix_")

For l = 1 To UBound(a, 1)
    For i = 1 To UBound(a, 2)
        If Not IsError(Application.Match(a(l, i), b, 0)) Then a(l, i) = "treffer"
    Next
Next

Range("matrix_") = a
End Sub

Gruß Sepp

Anzeige
AW: Matrix in Matrix suchen (und ersetzen)
21.12.2007 10:08:00
David
Klasse!
Hätte nicht gedacht, das das soo "einfach" ist. Leider kriege ich VBA nur mit Makro-Rekorder hin und da bekommt man halt nicht alle Befehle zu sehen bzw. ich habe oft Probleme mit der Syntax und der richtigen Reihenfolge der (Teil)Befehle.
Ich habe deinen Vorschlag gerade an einer kleinen Testmatrix ausprobiert und es geht. Das ist genau das, was ich brauche.
Eine Frage noch:
Der Sinn der letzten Zeile Range("matrix_") = a erschließt sich mir nicht ganz. Wozu ist diese Zeile gut?

AW: Matrix in Matrix suchen (und ersetzen)
21.12.2007 10:12:56
Josef
Hallo David,
mit

a = Range("matrix_")


wird der Tabellenbereich in das Array eingelesen und mit


Range("matrix_") = a


wird das Array wieder in die Zellen zurückgeschrieben.

Gruß Sepp

Anzeige

318 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3