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
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten vergleichen u. auto. einfügen von Zellen

Spalten vergleichen u. auto. einfügen von Zellen
12.05.2005 23:01:46
Zellen
Hallo,
habe folgendes Problem:
Wie kann man 2 Spalten vergleichen und falls nicht "=" 2.Spalte um eine Zeile nach unten verschieben u. neu vergleichen?
Bsp:
Spalte A Spalte B Spalte C
1 Test1 Test1 Vergleich A1=B1? -&gti.O.
2 Test2 Test3 Vergleich nicht i.O.
-&gt&gt&gt&gt
2 Test2 ------
3 Test3 Test3 Vergleich A3=B3 -&gt i.O.
Vielen Dank vorab!
Gruß
Sven

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten vergleichen u. auto. einfügen von Zell
12.05.2005 23:29:02
Zell
Hallo Sven,
so:?
Sub tt()
For n = 1 To Range("A65536").End(xlUp).Row
If Cells(n, 1) <> Cells(n, 2) Then
Cells(n, 2).Select
Range(Selection, Selection.End(xlDown)).Cut
Cells(n + 1, 2).Select
ActiveSheet.Paste
End If
Next n
End Sub

Gruß
Reinhard
AW: Spalten vergleichen u. auto. einfügen von Zell
12.05.2005 23:50:16
Zell
Hallo Reinhard,
supi-habe Deinen Vorschlag getestet. Fast i.O.. Problem Rückmeldung "Laufzeitfehler 1004" was mache ich falsch? Wie beende ich elegant das Makro - d.h. wenn letzter Zeilenwert in Spalte B nicht vorhanden ist?
Gruß
Sven
AW: Spalten vergleichen u. auto. einfügen von Zell
12.05.2005 23:58:02
Zell
Hallo Sven,
sSchicke mal eine kleine Beispieltabelle, wo der Fehler auftritt.
habs an dieser Tabelle problemlos getestet:
Tabellenblattname: Tabelle1
A   B
1  1   1
2  2   2
3  1   3
4  2   4
5  3   5
6  4   6
7  5   7
8  6   8
9  7   9
10  8   0
11  9
12  0
Ergebnis war diese Tabelle:
Tabellenblattname: Tabelle1
A   B
1  1   1
2  2   2
3  1
4  2
5  3   3
6  4   4
7  5   5
8  6   6
9  7   7
10  8   8
11  9   9
12  0   0
Gruß
Reinhard
Tabelle wurde eingefügt mit Code von https://www.herber.de/forum/technik/messages/1226.html

Anzeige
AW: Spalten vergleichen u. auto. einfügen von Zell
13.05.2005 00:11:22
Zell
Hallo Reinhard,
anbei meine Testtabelle
vor Makro-Ausführung:
SpalteA SpalteB
test1 test1
test2 test3
test3 test4
test4 test5
test5 test6
test6
test7
test8
test9
Nach Makro-Ausführung:
SpalteA SpalteB
test1 test1
test2
test3 test3
test4 test4
test5 test5
test6 test6
test7
test8
test9
Erg. ist i.O. - Nur Fehlermeldung Laufzeitfehler 1004 -Makierung ist ungültig, dafür kann es vers. Gründe geben.....
Gruß
Sven
Alles klar, kin Problem
13.05.2005 00:45:52
Reinhard
Hallo Sven,
Selection, Selection.End(xlDown)
enstpricht ja strg+shift+Pfeilnachunten
beim letzten Mal wo das Makro was tut wählt es von zeile x aus alles aus bis Zeile 65536
wenn nun die Befehlsfolge kommt
Cells(n + 1, 2).Select
ActiveSheet.Paste
dann will er ja das einfügen in Zelle x+1 bis 65537 und die gibt es halt nicht.
Gruß
Reinhard
Anzeige

49 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