Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich zweier Listen per VBA

Vergleich zweier Listen per VBA
28.02.2016 16:45:50
roderh

Hallo,
könnte mir bitte jemand helfen?
Ein Makro soll eine Namensliste (hier in der F-Spalte) vergleichen mit einer anderen Liste (hier in der H-Spalte). Wenn der Name in der H-Spalten-Liste auftaucht, dann soll das Makro zwei Spalten vor der Namensliste (F-Spalte) ein "v" schreiben, ansonsten nicht. Das Ergebnis soll dann so aussehen, wie in der Beispieldatei gezeigt (die blauen "v" in der C-Spalte).
Anmerkungen:
Es sollte ein Makro sein, also nur 'auf Aufforderung' in die C-Spalte schreiben.
Eines meiner Probleme ist übrigens, dass meine Makros nicht die vollständige Zelle erfassen, so dass z.B. auch vor "Müllerschmidt" ein "v" gesetzt wird, bloß weil in der Kontrollliste "Müller" vorkommt.
Vielen Dank im Voraus!
Vielen Dank im Voraus!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich zweier Listen per VBA
28.02.2016 17:58:08
Michael Weber
Hallo,
Da ich kein .xlsm Dateien öffne, hier der Versuch einer "blinden" Antwort:
Sub sFind()
Dim rng as range
With columns("F")
Lr = .cells(.rows.count).end(xlup).row
End with
With columns("H")
For i =1 to lr
If not isempty(cells(i, "F")) then
Set rng = .find(cells(i, "F"), lookat:=xlwhole)
If not rng = nothing then cells(i, "C") = "v"
End if
End with
Set rng = nothing
End Sub

AW: Vergleich zweier Listen per VBA
28.02.2016 18:32:45
roderh
Vielen Dank für die Hilfe!
Leider kommt es bei der Ausführung zu einer Fehlermeldung
hier nochmal in xlsx:
https://www.herber.de/bbs/user/103954.xlsx

Anzeige
wundert mich nicht,
28.02.2016 18:45:09
Michael
Hi zusammen,
denn Michael deklariert seine Variablen auch nicht sauber: einmal schreibt er "Lr", einmal "lr".
Anbei anderer Ansatz mit "Dictionary", derweil das echt fix ist: 
Option Explicit
Public Sub Vergleichen()
Dim o  As Object, namen As Variant
Dim Hvon&, Hbis&, Fvon&, Fbis& ' & heißt so viel wie As Long
Dim z&
Dim nametrim As String
Hvon = 2: Fvon = 2
Fbis = Range("F" & Rows.Count).End(xlUp).Row
Hbis = Range("H" & Rows.Count).End(xlUp).Row
Set o = CreateObject("Scripting.Dictionary")
namen = Range("H1:H" & Hbis)
For z = Hvon To Hbis:   o(Trim(namen(z, 1))) = 1: Next
If o.Count = 0 Or Fbis <= Fvon Then MsgBox "keine Werte gefunden": Exit Sub
namen = Range("F1:F" & Fbis)
For z = Fvon To Fbis
nametrim = Trim(namen(z, 1))
If nametrim <> "" Then
If o(nametrim) = 1 Then Range("C" & z) = "v"
End If
Next
Set o = Nothing
End Sub
Die Datei: https://www.herber.de/bbs/user/103956.xlsm
Schöne Grüße,
Michael

Anzeige
AW: Vergleich zweier Listen per VBA
28.02.2016 18:51:14
Michael Weber
Hallo,
Da ich auch ohne java eingebe, war eine Korrektur nicht möglich:
If not rng is nothing...
ansonsten bitte immer die Stelle des Fehlers angeben.
Mfg

AW: Vergleich zweier Listen per VBA
28.02.2016 18:54:18
roderh
Scheint so zu funktionieren!
Vielen Dank an Euch und viele Grüße!

116 Forumthreads zu ähnlichen Themen

gleiche Zahlen nicht gleich in VBA?
Christian

Guten Tag,
ich habe hier zwei Zahlen, die meiner Meinung nach gleich sind, aber laut VBA dann doch wieder nicht.....
Ein Vergleich im Tabellenblatt mit folgender Formel zeigt mir, das die Zahlen gleich sind:
=WENN(C5'zahlen alt'!C5;"nicht gleich";"gleich")
Per Makro sind die gle...
26.01.2009 17:09:00
Thread-ID: 1043950
3 Beiträge
Anzeige
problem mit istgleichzeichen
pit

hallo zusammen,
ich habe mir mit hilfe von verkettungen eine große untereinanderstehende liste von permutationen geschaffen, welche sich auf die zellen a1 - f1 beziehen. es sind ca 300000 zeilen runterwärts die verschiedensten formeln entstanden. mein problem hierbei ist folgendes:
die...
18.12.2009 11:59:54
Thread-ID: 1124859
8 Beiträge
Nullist nicht gleich 0!!??
ing.grohn

Hallo Forum,
in einer Tabelle zähle ich Zeiten zusammen und welche ab: =(D149-C149+H149-G149+L149-K149+ _ P149-O149+T149-S149+X149-W149- _ (F149-E149+J149-I149+N149-M149+ _ R149-Q149+V149-U149))*24
(es werden für eine Woche Anfangs-, Endzeiten, Mittagspause für jeden Tag saldiert)
...
24.08.2011 19:10:53
Thread-ID: 1227467
4 Beiträge
Anzeige
VERGLEICH funzt nicht! Evtl. mit ARRAY-Formel
Herbert

Hallo,
in der beigefügten Datei seht Ihr mein Problem. Das Ergebnis von "Letzter Eintrag an Pos.:" ist hier 6, müsste aber 10 sein. Mit aufsteigend sortierter Suchspalte funzt es. Aber meine Daten liegen nicht sortiert vor.
Servus
https://www.herber.de/bbs/user/80787.xlsm
01.01.1970 00:00:00
Thread-ID: 1269216
38 Beiträge
Wenn Formel mit "-ist nicht gleich gross"
Herbert

Guten Tag
Ich möchte eine Excelformel erstellen:
=WENN(E2<E1;"Gut";"Schlecht")
Wenn jetzt aber in E2 und in E1 z.B. 10 steht, gibt mir die Formel trotzdem ein "Gut".
Wie kann ich noch ein "und ist nicht gleich gross" einbauen?
Vielen Dank für die Hilfe
Herbert
25.07.2012 14:48:40
Thread-ID: 1272581
5 Beiträge
Kopierter Button XL2007 ist nicht gleich XL2003
Johann

Hallo Excel-VBA-Guru's, HIIIIIILFEEEEE !!
habe ein Problem mit unterschiedlichem Verhalten zwischen Excel 2007 und Excel 2003:
Ich habe eine Arbeitsmappe 'WbkMaster' welche unter anderem ein Worksheet 'O2C_Template' enthält.
Dieses Worksheet enthält einen Button, welches ein Makr...
10.10.2012 17:43:19
Thread-ID: 1281385
8 Beiträge
Formel funktioniert nicht überall gleich
Marc

Hallo Zusammen,
ich habe eon Problem mit einer Suchfunktion innerhalb einer Inventartabelle.
Programmiert habe ich mit einer Formel eine Suche über mehrere Tabellenblätter hinweg. Bzw. Soll es so einmal sein.
Mein Problem ist, dass die Formel nicht überall gleich funktioniert.
S...
03.09.2013 14:06:55
Thread-ID: 1329362
3 Beiträge
Wenn Wochentag nicht gleich, dann Datum anpassen
Rob

Moin zusammen,
ích suche eine Funktion für folgendes Problem und hoffe sehr, dass Ihr mir bitte helfen könnt:
In Spalte A:A stehen Daten (also von "Datum" ;p...);
In Spalte B:B soll mittels einer Funktion geprüft werden, ob
1. der Wochentag der Zelle links ein Dienstag ist und...
12.09.2014 15:08:05
Thread-ID: 1381345
13 Beiträge

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
2
3
7
3
4
37
4
7
2
12
9
1
5
13
4
6
3
2
6
2
1
8
4
4
3