Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 nicht nebeneinander liegende Spalten vergleichen

Forumthread: 2 nicht nebeneinander liegende Spalten vergleichen

2 nicht nebeneinander liegende Spalten vergleichen
05.09.2024 09:30:08
Olli
Guten Morgen zusammen,

da ich im Archiv nicht fündig geworden bin, wende ich mich nun an euch und hoffe, dass ihr mir zu folgendem Problem helfen könnt:

Ich möchte 2 Spalten auf dem gleichen Arbeitsblatt (Spalte N + Spalte T) miteinander vergleichen. In den Spalten sollte jeweils die Zellen auf gleicher Höhe miteinander verglichen werden. Es handelt sich um Text inkl. Zahlen wie z.B. Adresse inkl. Nr.. Falls der Vergleich ergibt, dass die Zellen auf gleicher Höhe in den beiden Spalten unterschiedlich sind, sollte die Zelle in Spalte N z.B. rot eingefärbt werden.

Bis jetzt habe ich nur VBA-Beispiele für nebeneinanderliegende Spalten gefunden.

Kann mir jemand helfen?

LG

Olli
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: 2 nicht nebeneinander liegende Spalten vergleichen
05.09.2024 09:39:01
SF
Hola,
als Formel in der bedingten Formatierung:
=N2>T2
Gruß,
steve1da
AW: 2 nicht nebeneinander liegende Spalten vergleichen
05.09.2024 19:59:11
Yal
Moin,

wenn ich es richtig verstehe, ist eine VBA-Lösung gesucht. Aber mit bedingter Formatierung und Steves Formel wäre es tatsächlich leichter.

Der Weg zu VBA geht immer über per Hand mit laufenden Makrorekorder machen und Code lesen. 

Sub Spaltenvergleich()

Dim Z As Range ' Z wie Zelle



    For Each Z In Worksheets("Tabelle1").Range("N2:N52") 'sowhl Tabellenname als auch Range anpassen

        If Z.Value = Z.Offset(0, 6).Value Then 'N: Spalte 14, T: Spalte 20, also 6 Spalte nach rechts, 0: gleiche Höhe

            Z.Interior.Pattern = xlNone 'Z himself, ohne Farbe

            Z.Offset(0, 6).Interior.Pattern = xlNone 'Z, 6 Spalten nach recht, also T

        Else

            Z.Interior.Pattern = xlSolid 'Farbung "solid"

            Z.Interior.ColorIndex = 3 'rot

            Z.Offset(0, 6).Interior.Pattern = xlSolid

            Z.Offset(0, 6).Interior.ColorIndex = 3

        End If

    Next

End Sub


VG
Yal
Anzeige
AW: 2 nicht nebeneinander liegende Spalten vergleichen
06.09.2024 13:50:41
Olli
Hallo zusammen

Besten Dank für eure Rückmeldung!!!

Es wäre schon gut, wenn ich dies mittels VBA (Makro) lösen könnte, da ich dieses mit einem Command-Button verknüpfen möchte. Ich habe den Vorschlag von Yal in meiner Tabelle eingebaut. Leider funktioniert irgendetwas nicht. Trotz Vergleichsformel, werden alle Zellen der Spalte N und T rot eingefärbt. Auch diejenigen, die keine Unterschiede aufweisen.
Kann dies an irgendeiner Einstellung liegen? Oder daran, dass in den Zellen Text (Strassenname) und Zahlen (Strassennr.) enthalten sind?

Ich habe es auch mit einer bedingten Formatierung und auch mit einer =WENN-Formel in der Spalte X versucht, wie z.B. =WENN(N3=T3;" ";"Adressenwechsel") versucht. Auch hier ist das Resultat, dass es sämtliche Vergleichsresultate in der Spalte X das selbe Ergebnis aufweisen, obwohl es z.B. auf der gleichen Zeilenhöhe in der Spalte N + T unterschiedliche Texte hat.

Weiss nicht mehr wie weiter:-(

Gruss

Olli
Anzeige
AW: 2 nicht nebeneinander liegende Spalten vergleichen
06.09.2024 13:56:52
SF 
Weiss nicht mehr wie weiter:-(



Lade eine Exceldatei hoch wo in Spalte X alle Ergebnisse gleich sind, damit man das nachvollziehen kann.
AW: 2 nicht nebeneinander liegende Spalten vergleichen
06.09.2024 16:42:06
Yal
Hallo Olli,

es kann an vieles liegen. Was für eine Mensch "gleich" aussieht, ist es für eine Computer nicht: 4 und vier, GROSS und gross, usw.

Ein bisschen Code, um deine Eingangsdaten zu testen: 
Sub Prüfe()

Dim zN As Range

Dim zT As Range

Dim MsgN As String

Dim MsgT As String



    For Each zN In Range(Range("N2"), Range("N1048000").End(xlUp))

        Set zT = zN.Offset(0, 6)

        Debug.Print zN.Address, zT.Address 'Ausgabe in Direktbereich (siehe in VBA-Editor Menü "Ansicht", "Direktfenster")

        MsgN = "": MsgT = ""

        If zN.Value > zT.Value Then

            If Len(zN.Value) > Len(zT.Value) Then

                Debug.Print "Zeile " & zN.Row & ": ungleiche Länge " & Len(zN.Value) & " / " & Len(zT.Value)

            Else

                For i = 1 To Len(zN.Value)

                    If Mid(zN.Value, i, 1) = Mid(zT.Value, i, 1) Then

                        MsgN = MsgN & "-"

                        MsgT = MsgT & "-"

                    Else

                        MsgN = MsgN & Mid(zN.Value, i, 1)

                        MsgT = MsgT & Mid(zN.Value, i, 1)

                    End If

                Next

                Debug.Print "Zeile " & zN.Row & ": " & MsgN

                Debug.Print "Zeile " & zN.Row & ": " & MsgT

            End If

        End If

    Next

End Sub


VG
Yal
Anzeige
;

Forumthreads zu verwandten Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Spalten lassen sich nicht auf Breite 0 schieben
Gordon

Moin,
ich versuche gerade per Makro bestimmte Spalten auf die Breite 0 zu schieben. Als es da fr mich unerklärliche Probleme gab, hab ich mal versucht, die Spalten per Hand auf Breite null zu schieben und siehe da, folgende Meldung erscheint: "Objekte können nicht über das Blatt hinausver...
17.09.2008 14:10:57
Thread-ID: 1010385
4 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Anzeige
Tab nicht sichtbar
Timmy

Liebe Excler,
ich habe ein Worksheet erstellt, in welches man ueber entsprechende Buttons ueber die UF rein kann.
Wenn ich auf den Sales-Button druecke, sehe ich nur das Sales Sheet. Wenn ich auf den Purchasing-Button druecke, sehe ich das Purchasing und das Sales Sheet.
Das funkti...
16.02.2009 14:49:00
Thread-ID: 1051149
5 Beiträge
Macro Prgramm nicht mehr editierbar/sichtbar
Reimund

Hallöli,
mein Macro funktioniert, aber wenn ich es bearbeiten will ist es nicht mehr aufrufbar.
Wo bitte ist der Wurm ?
14.04.2009 23:10:13
Thread-ID: 1068762
8 Beiträge
diagramm name nicht sichtbar
natka

Hallo,
habe eine automatisierte Excell statistic Datei erstellt und Diagramme automatisiert.
das Excel hat bisher genau gesehen, welche Nummer (z.B. Diagramm 4) jedes Diagramm hat. Jetzt macht er es auf einmal nicht mehr und meine automatisierung ist nicht mehr aktiv. Gibt es eine Eins...
14.07.2009 21:11:43
Thread-ID: 1087418
2 Beiträge
Macro ist nicht sichtbar
Armin

Hallo excelaner,
habe warscheinlich ein kleines Denkproblem mit Macrosicherheit. Ich habe eine Tabelle die enthält ein Macro.
In der VBA Umgebung oder Editor wird aber nichts angezeigt. Auch ist nichts, irgendwo sichtbar geschützt oder mit passwort versehen.
Kann man VBA-Programmier...
19.07.2009 20:24:17
Thread-ID: 1089854
11 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