Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

3 Spalten in markierten Reihen vergleichen

Forumthread: 3 Spalten in markierten Reihen vergleichen

3 Spalten in markierten Reihen vergleichen
21.07.2004 14:15:28
Sabrina
Hallo,
ich verzweifle gerade an einem - für euch Profis bestimmt ganz leichtem -
VBA Problem:
Ich habe 3 Spalten in einem Exceldokument markiert und möchte jetzt
jede Reihe dieser markierten Spalten vergleichen und bearbeiten.
D.H. zuerst B2 mit C2 mit D2, danch B3 mit C3 mit D3 usw.
Sind z.B. alle 3 Zahlen einer Reihe gleich, möchte ich sie FETT darstellen,
die kleinste Zahl möchte ich immer nebenan in Zeile F schreiben.
Mein Problem: Markierte Spalten Reihenweise durchgehen und die einzelnen
Zellen der Reihen miteinander vergleichen.
Wer kann einer VBA Anfängerin helfen ?
Liebe Grüsse
Sabrina
Anzeige
AW: 3 Spalten in markierten Reihen vergleichen
Beni
Hallo Sabrina,
versuche es mit diesem Code.
Gruss Beni

Sub Spaltenvergleich()
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2) = Cells(i, 3) And Cells(i, 2) = Cells(i, 4) Then
Range(Cells(i, 2), Cells(i, 4)).Font.Bold = True
Else
Set zeile = Range(Cells(i, 2), Cells(i, 4))
minWert = Application.WorksheetFunction.Min(zeile)
Cells(i, 6) = minWert
End If
Next i
End Sub

Anzeige
AW: 3 Spalten in markierten Reihen vergleichen
21.07.2004 14:38:51
Jens
Hallo sabrina,
hier mal ein vorschlag. Allerdings feste zuordnung der zu vergleichenden Spalten. B mit C und D. Minimum in F schreiben. Wobei das doch bei gleichen zellen keinen sinn macht. So musst du halt zeile 6 in die for schleife mit reinnehmen.
Gruß Jens

Sub Makro3()
For i = 2 To 20
If Cells(i, 2) = Cells(i, 3) And Cells(i, 3) = Cells(i, 4) And Cells(i, 2) = Cells(i, 4) Then
Range(Cells(i, 2), Cells(i, 4)).Font.Bold = True
End If
Cells(i, 6) = Application.WorksheetFunction.Min(Cells(i, 2), Cells(i, 3), Cells(i, 4))
Next
End Sub

Anzeige
AW: 3 Spalten in markierten Reihen vergleichen
Nike
Hi,
mein Check hat leider nicht funktioniert, aber der Rest funktinabelt ;-)
Bye
Nike

Sub test()
Dim rngBereich As Range
Dim rw As Long
On Error GoTo ErrEnd
Set rngBereich = Application.InputBox("Auswahl", "Auswahl", "A1", , , , , 8)
'If Not Intersect(rngBereich, Columns(2), Columns(3), Columns(4)) Is Nothing Then
For rw = rngBereich.Cells(1).Row To rngBereich.Cells(1).Row + rngBereich.Rows.Count - 1
If Cells(rw, 2) = Cells(rw, 3) And Cells(rw, 2) = Cells(rw, 4) Then
Range(Cells(rw, 2), Cells(rw, 4)).Font.Bold = True
Cells(rw, 6) = Cells(rw, 2)
Else
Cells(rw, 6) = WorksheetFunction.Max(Range(Cells(rw, 2), Cells(rw, 4)))
End If
Next
'End If
Exit Sub
ErrEnd:
Err.Clear
End Sub

Anzeige
AW: 3 Spalten in markierten Reihen vergleichen
21.07.2004 14:58:50
Sabrina
Hi nochmal,
und vielen Dank für die antworten.
Wenn ich es richtig gesehen habe, habe Ihr die Spalten fest eingetragen.
Ich suche jedoch nach einer Möglichkeit die Spalten frei auszuwählen.
Also z.B. auch mal Spalte X,Y,Z.
Gibt es da eine Möglichkeit ?
Vielen Dank für die vielen Tipps
Sabrina
Anzeige
AW: 3 Spalten in markierten Reihen vergleichen
Nike
Hi,
na dann kannst du ja den Ansatz mit der Auswahl aufnehmen,
bleibt die Frage, ob die Ausgabe auch in Spalte F erfolgen soll
oder entsprechend versetzt...
Bye
Nike
AW: 3 Spalten in markierten Reihen vergleichen
21.07.2004 15:33:14
Sabrina
Hi nochmal,
was mir jetzt noch fehlt ist:
Statt einem Eingabekasten werden die markierten Spalten genommen.
Wie kann ich die erste und letzte markierte Spalte heraus bekommen?
Liebe Grüsse
Sabrina ;-))
Anzeige
AW: 3 Spalten in markierten Reihen vergleichen
Nike
Hi,
was meinst du mit markiert?
In meinem Beispiel sieht man, wie mit .cells(1) die erste
und mit .rows.count die letzte Zeile ermittelt wird,
so aehnlich (mit columns) muesstest du da wohl was machen,
wenn ich dich richtig verstanden hab...
Bye
Nike
AW: 3 Spalten in markierten Reihen vergleichen
Beni
Hallo Sabrina,
dieser Code ermittelt zuerst die selectierte Spalte ganz links und ganz recht.
Gruss Beni

Sub Spaltenvergleich()
L = 0
Dim cell As Range
For Each cell In Selection.Cells
sel = cell.Column
If L = 0 Then L = sel 'selectierte Spalte links
R = sel  'selectierte Spalte rechts
Next
For i = 1 To Cells(Rows.Count, L).End(xlUp).Row
If Cells(i, L) = Cells(i, L + 1) And Cells(i, L) = Cells(i, L + 2) Then
Range(Cells(i, L), Cells(i, R)).Font.Bold = True
Else
Set zeile = Range(Cells(i, L), Cells(i, R))
minWert = Application.WorksheetFunction.Min(zeile)
Cells(i, 6) = minWert
End If
Next i
End Sub

Anzeige
;

Forumthreads zu verwandten 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
etwas komplexer vergleich zweier Spalten
Jonathan

Hallo liebe Experten,
ich stehe gerade vor einem, für mich etwas komplexeren, Problem. Ich denke aber, dass es für euch mit Sicherheit kein Problem darstellt.
Ich habe in einer Tabelle zwei Spalten (A + B). Jede der beiden Spalten kann den Wert "active" oder "on hold" haben. Die länge d...
20.10.2008 08:27:04
Thread-ID: 1017563
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
Anzeige
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
Anzeige
Spalten vergleichen, löschen und zählen
Micky

Hallo Ihr Excel Ritter,
ich habe folgendes Problem, in 2 Spalten stehen Nummern teilweise doppelt,
nun darf jede NR. nur 1x auftauchen entwerder in Spalte a oder b.
Pro Nr. soll in einer 3. Spalte dann der Wert 1 ausgebeben werden oder 0 für
keine Nummer. Zeilen dürfen nicht g...
10.12.2008 10:17:50
Thread-ID: 1031594
11 Beiträge
Anzeige
Doppelte über zwei Spalten - vergleichen
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter. Gibt es eine Chance, beide Tabellenblätter abzugleichen, ob Datensätze doppelt vorkommen? - Schwierigkeit dabei mag aber sein, dass für die Suche sowohl die Spalte D, als auch Spalte E zu Grunde zu legen wären. Nur also, wenn die Dat...
09.01.2009 17:26:12
Thread-ID: 1038283
5 Beiträge
Spalten vergleichen und kopieren
edie

Hallo zusammen,
mit dem nachfolgenden Code wird die Spalte C mit der Spalte J verglichen, wobei in
der Spalte C der String nur einmal vorkommt in der Spalte J aber mehrfach.
Bei Übereinstimmung werden die Werte der Spalten K, L und M in die Spalten S, T und U
übernommen.
...
22.01.2009 20:43:26
Thread-ID: 1042727
3 Beiträge
2 Sheets & 2 Spalten vergleichen
Alex

Guten Morgen zusammen!
Ich sitze an folgendem Problem:
Ich habe zwei Sheets, in denen Kunden (dummerweise) sehr inkonsistent gespeichert werden. Aus diesem Grunde vergleiche ich die beiden relevanten Spalten nach übereinstimmenden Strings und versuche, zumindest einen Teil dieser Kunden...
29.01.2009 10:29:17
Thread-ID: 1044862
4 Beiträge
Anzeige
SVERWEIS für 4 Spalten
andreas

Hallo an alle an Excelfans
ich hab da ein Problem und wollte mal fragen, ob mir jemand helfen kann.
Ich brauche eine SVERWEIS-Formel, mit der ich eine Abfrage von vier Spalten erreichen kann.
Leider bekomme ich dieses nicht hin.
Ich habe eine Beispieldatei mal mit hochgeladen, u...
27.02.2009 10:26:59
Thread-ID: 1054629
5 Beiträge
Spalten vergleichen und Nummern ausgeben ?
Günther

Hallo zusammen,
kann mir bitte jemand hierbei helfen:
in Spalte E geb ich Nummern ein, diese sollen mit denen aus Spalte AA verglichen werden.
Bei Übereinstimmung soll die Nummer aus AB in L ausgegeben werden.
E---- L--- AA-- AB
15-- 2--- 10-- 1
30-- 5--- 15-- 2
1...
12.03.2009 15:49:14
Thread-ID: 1059522
5 Beiträge
Werte aus 2 Spalten vergleichen??
stefan

Hallo,
ich habe in 2 Spalten Werte. Wie kann ich prüfen, ob die werte in der einen spalte enthalten sind. WEnn sie enthalten sind, soll in einer 3.spalte ein text ausgegeben werden.
wie mach ich das am besten?
danke euch?
13.03.2009 16:57:19
Thread-ID: 1059944
4 Beiträge
SVERWEIS für 4 Spalten
andreas

Hallo
ich muss mich nochmals an euch wenden.
Ich lasse mit Hilfe der SVERWEIS - Formel Daten in eine Tabelle schreiben, wobei die Ausgangstabelle aus
4 x 4 Spalten besteht.
Einmal ist es eine Bezeichnung(Text) -
der andere Wert ist ein Preis.
Mit dem Preis - das funktion...
16.03.2009 13:21:16
Thread-ID: 1060710
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige