Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1764to1768
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
1764to1768
1764to1768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA Zellenwerte vergleichen

Excel VBA Zellenwerte vergleichen
09.06.2020 20:18:01
Koller
Hallo Miteinander,
ich bin absoluter VBA-Neuling und scheitere an einer scheinbar sehr einfachen Sache..
Ich möchte in der Spalte "A" jeweils immer 2 Zellen untereinander vergleichen, also A1 mit A2, A2 mit A3, A3 mit A4 und so weiter.
Sofern die Werte gleich sind, soll nichts passieren, einfach weiter der Zellenvergleich. Sind die Werte nicht gleich, soll die untere Zelle unterstrichen werden.
Kann mir dabei bitte jemand helfen?
Und habt ihr Tipps für mich, wie ich VBA lernen kann?
Vielen Dank und viele liebe Grüße
Lisa

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

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA Zellenwerte vergleichen
09.06.2020 20:26:45
Hajo_Zi
Hallo Lisa,
If cells(loi,1)=Cells(loi+1,1) then
cells(loi+1,1).Font.Underline = xlUnderlineStyleSingle
End If

AW: Excel VBA Zellenwerte vergleichen
09.06.2020 20:41:31
Koller
Hallo Hajo,
vielen Dank erstmal für diese superschnelle Antwort!!
Wie genau muss ich das denn jetzt verbauen, damit auch jede Zelle angesprochen wird?
Hätte jetzt versucht:
Sub Zellenvergleich ()
Dim a as Variant
Dim c as Range
For each c in Range ("A1:A10")
Set a = ActiveCell.Select
If Cells (a,1) = Cells (a+1,1) then
Cells (a+1,1).Font.Underline = xlUnderlineStyleSingle
End if
Next c
End Sub

ist da irgendetwas dabei, was ich verwerten kann?
viele Grüße
Lisa
Anzeige
AW: Excel VBA Zellenwerte vergleichen
09.06.2020 20:46:06
ralf_b
Wolltest du den Text unterstreichen oder die Zelle mit unteren Rahmenlinie?
Sub test()
Dim x
For Each x In Range("A:A")
If x  x.Offset(1, 0) Then x.Offset(1, 0).Borders(xlEdgeBottom).LineStyle = xlContinuous
If x.Offset(1, 0) = "" Then Exit For
Next
End Sub

AW: Excel VBA Zellenwerte vergleichen
09.06.2020 20:54:35
Koller
Hallo Ralf,
vielen vielen Dank! Das funktioniert super.
Schönen Abend euch beiden noch!
Lisa
AW: Excel VBA Zellenwerte vergleichen
09.06.2020 20:46:31
Hajo_Zi
in meiner Datei geht es. Deine konnnte ich nicht sehen.
If C = C.Offset(1,0) (a+1,1) then
c.offset(1,0).Font.Underline = xlUnderlineStyleSingle
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Der Cursor ist kein Hund, der überall rum geführt werden muss.
Gruß Hajo
Anzeige

310 Forumthreads zu ähnlichen Themen

VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Anzeige
| HERBERS Excel Forum
kai

hallo zusammen,
ich würde gerne per makro die letzten beiden beschriebenen zellen der spalte h löschen?
würde mich freuenn, wenn mir das jemand kurz aufschreiben könnte.
danke und viel grüße kai
26.04.2009 19:51:39
Thread-ID: 1071220
6 Beiträge
VBA Zellen Vergleichen
Sprekelmeyer

Hallo,
ich hab da mal wieder ein Problem.
Ich habe zwei Excel Mappen :offene Rechnungen und Rechnungsvorlage.
Das Makro soll nun überprüfen ob in I8 von offene Rechnungen/ (Sheet) Kunde 01 das gleiche steht wie in I8 von Rechnungsvorlage/ (Sheet) Artikel.
Wenn das gleiche in den...
11.06.2009 13:51:31
Thread-ID: 1080723
4 Beiträge
Anzeige
VBA: Zellen vergleichen, Zellen nach unten
Scot

Hallo Leute
Ich hoffe, in diesem Forum eine Lösung für mein Problem zu finden. Bin seit Tagen auf der Suche.
Meine Tabelle sieht so aus, wie die hochgeladene, Blatt "Ausgangslage":
https://www.herber.de/bbs/user/66860.xls
Ziel soll sein, die Spalten B und N ab Zeile 6 Zeile für...
29.12.2009 02:57:17
Thread-ID: 1126145
6 Beiträge
VBA Makro Werte vergleichen
Andreas

Hallo VBA-Freaks,
hab da mal ein Anliegen. In einer Arbeitsmappe mit div. Blättern, habe ich immer in den Spalten 7-9 Werte, welche miteinander verglichen werden sollen. Spalte 7 ist der Ursprungswert und Spalte 8 + 9 sind nachträgliche Eingaben, welche mit dem Wert aus Spalte 7 verglichen...
23.06.2010 11:51:48
Thread-ID: 1163635
8 Beiträge
Vergleichen von Zellen
Stefan Schmid

Hallo Excelanwender benötige eine VBA Anwendung mit der ich Zellen von mehreren Exellisten auf Eindeutigkeit überprüfen kann.Habe z.B Bezeichnungen YGA6001 diese darf im den Ganzen listen die ich schreibe nur einmal vorkommen wie mach ich das
13.05.2002 15:11:38
Thread-ID: 120504
4 Beiträge
VBA Werte vergleichen
Michael

Hallo Zusammen, wie bekomme ich diesen Code Teil zum laufen:
' Löscht die Zeile wenn ein anderes Land außer DEUTSCHLAND, SCHWEIZ, ÖSTERREICH in Spalte 4 steht.
Dim q As Long
Application.ScreenUpdating = False
For q = Cells(Rows.Count, 4).End(xlUp).Row To 1 Step -1
If Cells(q...
03.10.2013 12:31:54
Thread-ID: 1333062
8 Beiträge
Betrag zweier Zellen vergleichen
Stefan

Guten morgen zusammen,
ich würde gerne Zelleninhalte von 2 Arbeitsblättern (wks1,wks2) vergleichen und falls eine Übereinstimmung vorhanden ist, Werte aus wks1 die 2 Spalten daneben stehen, in wks2 kopieren (in Abhängigkeit von den verglichenen Werten).
Problem habe ich gerade damit, da...
21.02.2014 09:16:52
Thread-ID: 1350618
4 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
2
4
5
3
3
5
7
3
7
3
6
2
7
4
2
2
8
9
1
2
1
5
15
9
6