Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
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
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
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

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
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

303 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
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
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
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
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
Anzeige

Links zu Excel-Dialogen

InputBox

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
3
5
8
10
4
2
3
4
4
3
2
2
13
4
3
4
1
10
4
8
4
1
2
7