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

2 Übereinstimmungen mit Makro finden

Forumthread: 2 Übereinstimmungen mit Makro finden

2 Übereinstimmungen mit Makro finden
15.06.2015 21:41:08
Andre´
Hallo alle zusammen,
ich möchte gern mit einem Makro in einem variablen Bereich (B1 bis letzten Zeilenwert von Zeile 1) und von (A2 bis letzten Spaltenwert von A) ein x setzen, wenn die 2 Übereinstimmungen gefunden wurden.
Die zusammengehörenden Übereinstimmungen befinden sich in dem Blatt "Suchen".
Als Bsp. hier die Datei: https://www.herber.de/bbs/user/98229.xls
In dem Blatt "Daten" habe ich manuell ein "x" gesetzt, so wie es durch das Makro erledigt werden soll.
Wurde jeweils die zwei Übereinstimmung gefunden, dann "x" setzen und den Hintergrund grün hinterlegen (aber nicht über die bedingte Formatierung)
Hat jemand dafür eine Makrolösung?
Vielen Dank im Voraus.
MFG Andre

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: 2 Übereinstimmungen mit Makro finden
16.06.2015 06:53:42
hary
Moin Andre
Eine Moeglichkeit: 
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim i As Long
Dim spalte As Variant
Dim zeile As Variant
Set wksQ = Worksheets("Suchen")
Set wksZ = Worksheets("Daten")
With wksZ.Range("B2").Resize(wksZ.Cells(Rows.Count, 1).End(xlUp).Row, wksZ.Cells(1, Columns. _
Count).End(xlToLeft).Column)
.Value = ""
.Interior.Color = xlNone
End With
For i = 2 To wksQ.Cells(Rows.Count, 1).End(xlUp).Row
spalte = Application.Match(CLng(wksQ.Cells(i, 2)), wksZ.Rows(1), 0)
If IsNumeric(spalte) Then
zeile = Application.Match(wksQ.Cells(i, 1), wksZ.Columns(1), 0)
If IsNumeric(zeile) Then
wksZ.Cells(zeile, spalte) = "X"
wksZ.Cells(zeile, spalte).Interior.Color = vbGreen
End If
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing

gruss hary

Anzeige
AW: 2 Übereinstimmungen mit Makro finden
16.06.2015 09:00:05
Andre´
Hallo Hary,
vielen Dank für die Lösung, funktioniert prima :-))
MFG Andre

Forumthreads zu verwandten Themen

Diagramm/Bild in UF - 2003 ja - 2007 error ?
Jens

Moin allerseits
ich hab da ein Diagramm in einer Userform, bzw ein Bild eines Diagramms.
Das Diagramm hat 4 Datenpunkte.
Unter Excel 2000 läuft es gut - unter Excel 2007 gibt es den Fehler, dass 2D Diagramme nicht mehr als 32000 Datenpunkte enthalten dürfen...aber es sind nur 4 ! <...
08.08.2008 22:59:03
Thread-ID: 1000428
3 Beiträge
2003 Diagramm in 2007
Bernd

Hallo,
ich habe in Excel 2003 ein Diagramm erstellt, deren Bereiche über Makros gesteuert werden.
Wenn ich die Datei in Excel 2007 öffne kommen allerdings nur Fehlermeldungen.
Gehe ich richtig in der Vermutung, dass programmierte Diagramme in Excel 2007 prinziüiell nicht mehr funkti...
18.08.2008 08:09:28
Thread-ID: 1002499
3 Beiträge
Anzeige
Drei Diagrammtypen in einem Diagramm
Jan

Hallo zusammen,
vor zwei Tagen (Beitrag 20.08.2008 11:10:17) wurde mir hier im Forum erfolgreich bei dem Thema "Kombination aus gruppierten und gestapelten Säulen" geholfen. Beverly hat mein Problem gelöst i n dem ein Teil der Daten der Primär- und ein anderer Teil der Sekundärachse zugetei...
22.08.2008 10:20:18
Thread-ID: 1003765
4 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Wenn bestimmte Bedingungen erfüllt - kommentar ein
Frank

Hallo und guten Abend!!!
Brauche wieder einmal eure Hilfe!!!
In einer Tabelle Namens Hilfsblatt werden in Spalte O die Daten aus den Spalten I & K zusammengefasst (z.B. =I5&K5). Der Wert aus Spalte P wird mittels folgender Formel
=WENN(ISTFEHLER(SVERWEIS($B2&C$1;Hilfsbl...
03.09.2008 18:17:00
Thread-ID: 1007200
2 Beiträge
Prüfe Tabelle für Tabelle nach bestimmten Inhalt
Tom

Hallo - schönen guten Morgen....
Ich habe in diesem Script einen Fehler, weis aber leider nicht wo. Eine Fehlermeldung als solches gibt es nicht aber das script macht halt nicht das was es soll.
Private Sub CommandButton5_Click() Dim lngZ As Long With Sheets("Mitarbeiterdaten") Workbo...
15.09.2008 11:08:52
Thread-ID: 1009714
6 Beiträge
Anzeige
Diagramm in Kommentar einbinden
Frank

Hallo!
Ich möchte gerne ein Diagramm in einen Kommentar einbinden.
Meine Frage ist nun geht das überhaupt und wenn ja wie?
Falls nicht, gibt es eine andere - vergleichbare Lösung?
Gruß Frank
17.09.2008 12:27:00
Thread-ID: 1010326
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
Josef

Guten Morgen!
Ich habe in einem Tabellenblatt ca. 8000 Datensätze. Wenn z.B. in der Spalte D der Wert "MusterA" steht, dann soll in diesem Datensatz in der Spalte B ein kleines "c" eingetragen werden. wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef
07.10.2008 05:58:58
Thread-ID: 1014578
11 Beiträge
Anzeige
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Diagramme - XLUSRGAL.XLS übernehmen in EXCEL2007?
thema

Hallo liebe EXperts!
Können die in Diagrammvorlagen, die in EXCEL 2003 gespeichert sind (vgl. XLUSRGAL.XLS) schnell in EXCEL 2007 übernommen werden?
Oder muss man die Vorlagen neu erstellen?
Danke für eure Tipps.
Grus TheMa
17.10.2008 10:25:00
Thread-ID: 1017059
3 Beiträge
versch. Datein zu einer xls zusammenfügen
Tom

Hallo und schönen guten morgen!
Ich würde gern alle Excel-Datein in einem bestimmten Ordner zu einer einzigsten zusammen führen wolllen. Leider beiss ich mir beim VBA da bis jetzt die Zähne aus.
Die Dateinamen der zusammenzuführenden Datein sind unterschiedlich und folgen keinem Schema....
04.11.2008 09:43:13
Thread-ID: 1021479
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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