Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
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
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Spalten vergleichen mit MsgBox

2 Spalten vergleichen mit MsgBox
04.11.2013 12:41:18
Christopher
Grias eich Gott,
ich habe 2 Spalten mit Namen. Ich würde gerne eine MsgBox bekommen in der mir ausgegeben wird, welche Namen in Spalte 2 stehen aber nicht in Spalte 1 vorhanden sind.
Ist das ein großer Act?
Danke schonmal.

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

Betreff
Datum
Anwender
Anzeige
AW: 2 Spalten vergleichen mit MsgBox
04.11.2013 12:50:30
Rudi
Hallo,
kein großer Akt. Würde ich aber per Formel abgleichen. 
Sub aaaa()
Dim r As Range
For Each r In Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp))
If WorksheetFunction.CountIf(Columns(1), r) = 0 Then
MsgBox r
End If
Next
End Sub

Gruß
Rudi

AW: 2 Spalten vergleichen mit MsgBox
04.11.2013 13:01:24
Hajo_Zi 

Option Explicit
Sub Doppelt()
Dim LoLetzte As Long
Dim LoI As Long
Dim StMeldung As String
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To LoLetzte
If Cells(LoI, 2)  "" Then
If Application.CountIf(Columns("A"), Cells(LoI, 2)) > 0 Then
If InStr(StMeldung, Cells(LoI, 2)) = 0 Then
If StMeldung  "" Then
StMeldung = StMeldung & ", "
End If
StMeldung = StMeldung & Cells(LoI, 2)
End If
End If
End If
Next LoI
MsgBox "Folgende Namebn sind enthalten " & StMeldung
End Sub

Anzeige
AW: 2 Spalten vergleichen mit MsgBox
04.11.2013 13:32:42
Christopher
Vielen Dank,
beide Lösungen haben optimal funktioniert:
Rudimentärs Lösung gibt für jeden Namen eine MsgBox aus und Hajo`s eine Liste.
Je nachdem wie mans braucht.
Ich hab in der Liste nach den Namen, mit & vbcrl noch einen Zeilenumbruch gemacht. Um es
übersichtlicher zu gestalten. Nur falls es wen interessiert.
;)
Vielen Dank

AW: 2 Spalten vergleichen mit MsgBox
04.11.2013 13:40:21
Hajo_Zi
also sieht der endgültige Code wie folgt aus. 
Option Explicit
Sub Doppelt()
Dim LoLetzte As Long
Dim LoI As Long
Dim StMeldung As String
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To LoLetzte
If Cells(LoI, 2)  "" Then
If Application.CountIf(Columns("A"), Cells(LoI, 2)) > 0 Then
If InStr(StMeldung, Cells(LoI, 2)) = 0 Then
If StMeldung  "" Then
StMeldung = StMeldung & vbCrLf
End If
StMeldung = StMeldung & Cells(LoI, 2)
End If
End If
End If
Next LoI
If StMeldung  "" Then MsgBox "Folgende Namen sind enthalten " & vbCrLf & StMeldung
End Sub
Gruß Hajo

Anzeige
AW: 2 Spalten vergleichen mit MsgBox
04.11.2013 14:18:24
Christopher
Genau so is es !
Danke für Eure Hilfe!!

305 Forumthreads zu ähnlichen Themen

Suchen, Sverweis Vergleichen über einen Bereich
KLE

Hallo zusammen,
..habe mal wieder eine Blockade im Hirn und suche hier Unterstützung, Anregungen und/oder Ideen...
Folgende Herausforderung (Musterdatei liegt hier bei):
Ich habe eine Adressen-Liste und muss es aus statistischen Gründen in Gruppen zusammenfassen. Soll heißen, alle "...
18.08.2008 08:39:00
Thread-ID: 1002501
5 Beiträge
Anzeige
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
zwei Spalten vergleichen
Schmidt

Guten Tag,
ich bin langsam am verzweifeln, was Excel angeht. Jetzt habe ich endlich meine 2000-Zeilen Tabelle fertig und da fällt doch glatt auf, dass es noch eine Tabelle gibt, die parallel geführt wurde.
Das Problem: es könnte sein, dass einzelne Komponenten nicht in beiden Tabellen e...
28.10.2008 10:38:01
Thread-ID: 1019838
6 Beiträge
Pulldown in mehreren Spalten
Wolfgang

Hallo,
der untenstehende Code bewirkt bei Anwählen eines jeweilien Tabellenblattes, dass in I2:I6000 ein Pulldown erscheint. Wäre denkbar, dass der Code ausgeweitet wird um zwei weitere Pulldown in Spalte K2:K6000 mit "Ja" "Nein" und in Spalte M2:M6000 mit "Date". Ich habe schon zig verschi...
15.11.2008 18:33:43
Thread-ID: 1024798
3 Beiträge
Funktion wie Sverweis über X Spalten
Michael

Hallo,
ich stehe leider vor einem Problem, welches eigentlich relativ einfach zu lösen sein sollte.
Ich habe in einer Tabelle beispielsweise folgende Informationen: KDN-NR / NAME / Produkt-CODE
In einer zweiten Tabelle habe ich beispielsweise die Informationen KDN-NEU / FIRMA / {Zel...
27.11.2008 18:50:16
Thread-ID: 1028482
9 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 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
1
2
6
3
3
5
2
8
2
6
3
11
6
4
2
2
5
1
3
3
3
6
13
5