Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 spalten vergleichen und werte ausrichten

Forumthread: 2 spalten vergleichen und werte ausrichten

2 spalten vergleichen und werte ausrichten
07.08.2006 15:02:58
Horesch
Hallo, super Macro!!!
Ich kenne mich nicht aus und kann das Macro nicht umschreiben.
Ich brauche ein Macro, wo ich zwei Spalten definiere und alle Spalten (bis zu 30 Stück) links und (bis zu 30 Stück) rechts von der „Schnittstelle“ ebenfalls verschoben werden.
Bitte um Eure hilfe…
Vielen Dank im voraus
Andreas H.
Userbild
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 spalten vergleichen und werte ausrichten
07.08.2006 15:47:35
Hans
Hallo Andreas,
jetzt fällt mir erst auf, dass Du Dich auf einen Beitrag aus dem Jahre 2002 beziehst, da hat natürlich niemand eine Chance.
Wenn ich Dich richtig verstanden habe, wie folgt:

Sub Einfuegen()
Dim iLeft As Integer, iRight As Integer, iCol As Integer, iCount As Integer
iCount = 5
iCol = ActiveCell.Column
Range(Cells(1, iCol), Cells(1, iCol + iCount - 1)).EntireColumn.Insert
iCol = iCol + iCount + 1
Range(Cells(1, iCol), Cells(1, iCol + iCount - 1)).EntireColumn.Insert
End Sub

gruss hans
Anzeige
AW: 2 spalten vergleichen und werte ausrichten
07.08.2006 16:18:37
horesch
danke sehr!! Es geht bei mir nicht. Das Ergebnis sollte wie folgt aussehen:
Userbild
Das unten angehängte Macro ist sehr gut es berücksichtigt aber die jeweiligen angrenzenden Zeile nicht und sortiert nur Zahlen die in Spalte A und B stehen. :-( Wie kann ich das lösen?

Sub Ausrichten()
Dim i%, j%, intA%, intB%
i = 1
Do
intA = CInt(Cells(i, 1).Value)
intB = CInt(Cells(i, 2).Value)
j = 0
If intA < intB Then
j = 2
ElseIf intA > intB Then
j = 1
End If
If j <> 0 Then Cells(i, j).Insert Shift:=xlDown
i = i + 1
Loop Until IsEmpty(Cells(i, 1).Value) Or IsEmpty(Cells(i, 2).Value)
End Sub

Anzeige
AW: 2 spalten vergleichen und werte ausrichten
07.08.2006 17:06:55
ingoG
Hallo Hans,
angehängtes Macro bearbeitet die inhalte aus spalte C und D und die jeweis 2 links bzw rechts angehängten...
bei mir hat es so gefunzt...
Die spalten C und D müssen jedoch jeweils sortiert sein.
Ich hoffe, das hilft Dir schon mal weiter
Gruß Ingo
PS eine Rückmeldung wäre nett...

Sub tttt()
Dim z1 As Long, z2 As Long
z1 = 1
z2 = 1
While Not (IsEmpty(ActiveSheet.Cells(z1, 3)) Or IsEmpty(ActiveSheet.Cells(z2, 4)))
If ActiveSheet.Cells(z1, 3) = ActiveSheet.Cells(z2, 4) Then
z1 = z1 + 1
z2 = z2 + 1
ElseIf ActiveSheet.Cells(z1, 3) < ActiveSheet.Cells(z2, 4) Then
Range(ActiveSheet.Cells(z2, 4), ActiveSheet.Cells(z2, 6)).Insert (xlShiftDown)
z1 = z1 + 1
z2 = z2 + 1
Else
Range(ActiveSheet.Cells(z1, 1), ActiveSheet.Cells(z1, 3)).Insert (xlShiftDown)
z2 = z2 + 1
z1 = z1 + 1
End If
Wend
End Sub

Anzeige
AW: 2 spalten vergleichen und werte ausrichten
07.08.2006 17:30:24
ingoG
Hallo zusammen,
und hier nochmal erweitert...
spalte sp1 und sp2 werden verglichen und dann anz-spalten links bzw rechts davon mit verarbeitet.
habe die Werte im Macro fest verdraten, man könnte sie auch im Macro eingeben lassen.
Gruß Ingo
PS eine Rückmeldung wäre nett

Sub tttt()
Dim z1 As Long, z2 As Long
Const sp1 = 3
Const sp2 = 4
Const anz = 3
z1 = 1
z2 = 1
While Not (IsEmpty(ActiveSheet.Cells(z1, 3)) Or IsEmpty(ActiveSheet.Cells(z2, 4)))
If ActiveSheet.Cells(z1, sp1) = ActiveSheet.Cells(z2, sp2) Then
z1 = z1 + 1
z2 = z2 + 1
ElseIf ActiveSheet.Cells(z1, sp1) < ActiveSheet.Cells(z2, sp2) Then
Range(ActiveSheet.Cells(z2, sp2), ActiveSheet.Cells(z2, sp2 + anz - 1)).Insert (xlShiftDown)
z1 = z1 + 1
z2 = z2 + 1
Else
Range(ActiveSheet.Cells(z1, sp1 - anz + 1), ActiveSheet.Cells(z1, sp1)).Insert (xlShiftDown)
z2 = z2 + 1
z1 = z1 + 1
End If
Wend
End Sub

Anzeige
korrektur
07.08.2006 17:34:39
ingoG
hab nat einmal das ersetzen vergessen...
Option Explicit

Sub tttt()
Dim z1 As Long, z2 As Long
Const sp1 = 4
Const sp2 = 5
Const anz = 3
z1 = 1
z2 = 1
While Not (IsEmpty(ActiveSheet.Cells(z1, sp1)) Or IsEmpty(ActiveSheet.Cells(z2, sp2)))
If ActiveSheet.Cells(z1, sp1) = ActiveSheet.Cells(z2, sp2) Then
z1 = z1 + 1
z2 = z2 + 1
ElseIf ActiveSheet.Cells(z1, sp1) < ActiveSheet.Cells(z2, sp2) Then
Range(ActiveSheet.Cells(z2, sp2), ActiveSheet.Cells(z2, sp2 + anz - 1)).Insert (xlShiftDown)
z1 = z1 + 1
z2 = z2 + 1
Else
Range(ActiveSheet.Cells(z1, sp1 - anz + 1), ActiveSheet.Cells(z1, sp1)).Insert (xlShiftDown)
z2 = z2 + 1
z1 = z1 + 1
End If
Wend
End Sub

Anzeige
AW: korrektur
08.08.2006 08:54:43
horesch
Hallo Ingo,
Vielen Dank für Deine Hilfe!! :-)))
Ist schon toll wie mir hier alle helfen!!
Habe Erich’s Macro genommen weil ich als Anfänger leichter erkennen konnte wo ich die Position der Schnittstelle ändern kann.
Vielen Dank!!
Andreas
AW: 2 spalten vergleichen und werte ausrichten
07.08.2006 18:04:15
Erich
Hallo Andreas,
mein Vorschlag: 
Option Explicit
Sub Sort_insert()
Dim zz As Long
Const lngS = 12    ' Schnittstelle nach der 12. Spalte
zz = 1
Do
If Cells(zz, lngS) < Cells(zz, lngS + 1) Then
Range(Cells(zz, lngS + 1), Cells(zz, 256)).Insert xlShiftDown
ElseIf Cells(zz, lngS) > Cells(zz, lngS + 1) Then
Range(Cells(zz, 1), Cells(zz, lngS)).Insert xlShiftDown
End If
zz = zz + 1
Loop Until IsEmpty(Cells(zz, lngS)) Or IsEmpty(Cells(zz, lngS + 1))
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: 2 spalten vergleichen und werte ausrichten
08.08.2006 08:45:47
horesch
Super es funktioniert!
Ist schon toll wie mir hier geholfen wird!!
Noch eine Bitte, ist es möglich, dass ich die Schnittstelle frei definieren kann?
Also zum Beispiel durch die aktuelle markierte Zelle.
Vielen Dank!!
Andreas
AW: 2 spalten vergleichen und werte ausrichten
08.08.2006 09:58:43
Erich
Hallo Andreas,
so wird die Schnittstelle rechts von der aktven Zelle angenommen: 
Option Explicit
Sub Sort_insert()
Dim lngS As Integer, zz As Long
lngS = ActiveCell.Column    ' Schnittstelle nach der aktiven Spalte
zz = 1
Do
If Cells(zz, lngS) < Cells(zz, lngS + 1) Then
Range(Cells(zz, lngS + 1), Cells(zz, 256)).Insert xlShiftDown
ElseIf Cells(zz, lngS) > Cells(zz, lngS + 1) Then
Range(Cells(zz, 1), Cells(zz, lngS)).Insert xlShiftDown
End If
zz = zz + 1
Loop Until IsEmpty(Cells(zz, lngS)) Or IsEmpty(Cells(zz, lngS + 1))
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: 2 spalten vergleichen und werte ausrichten
08.08.2006 13:37:22
horesch
Erich,
VIELEN DANK!! :-)))
Perfekt!
Beste Wünsche
Andreas
;

Forumthreads zu verwandten Themen

Zwei Werte Vergleichen....
chrissey

Hallo Leut,
hätte ne easy Frage:
Habe in Zelle A1 einen Wert, sagen wir mal "HANS", stehen und möchte nun eine Mtrix nach diesen Wert absuchen
sagen wir mal die Zellen
B10 bis B100 (gefüllt mit Namen: PETER; DIETER; ...... ; HANS; usw.)
wie mach ich des? Vergleich gibt mir...
10.10.2008 15:09:52
Thread-ID: 1015606
3 Beiträge
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 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
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
zum 2 ten werte vergleichen
juergen

Hallo
Habe immer noch das Problem:
mit https://www.herber.de/forum/messages/1056145.html
konnte Ich das Problem doch nicht lösen.
Also mein Prob. besteht darin das ich in einer Zeile ( Bspl. A1-J7 dürfen nur Unterschiedliche Werte haben damit die Tabelle weiter rechnet sonst...
05.03.2009 11:43:14
Thread-ID: 1056745
9 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
Daten vergleichen und übernehmen/zusammenführen
pemoe

Hallo,
ich habe folgendes, für Excel-Profis sicher leicht zu lösendes Problem. Es geht um eine Auswertung von Laboruntersuchungen, in Datei 1 steht in Spalte A jeweils die Anzahl und in Spalte B die Bezeichnung für die Untersuchungen. In Datei 2 steht zusätzlich für jede Untersuchungsbezeic...
14.05.2009 14:37:02
Thread-ID: 1075170
5 Beiträge
Zwei Werte vergleichen
Lutz

Grüße Euch,
ich habe eine Liefertabelle mit - gob gesagt - drei interessanten Spalten:
In der ersten Spalte steht eine Materialnummer, in der zweiten das Datum der letzten Lieferung und in der dritten Spalte das Landeskürzel des Bestellers.
Matno LiefDat Kürzel
1234 1...
14.09.2009 12:34:19
Thread-ID: 1102587
6 Beiträge
2 Spalten vergleichen
walli

Guten Tag zusammen,
ich habe eine Tabelle Spalte D + E stehen Zahlenwerte.
Ich möchte gern herausfinden welche Zahl in der Spalte E nicht drin steht,
dann sollte die Zahl (Zelle) in der Spalte D drin ist, gelb eingefärbt werden.
Hatte mal gegoogled aber leider nichts passendes g...
27.09.2009 12:32:09
Thread-ID: 1105826
11 Beiträge
Werte in Spalte vergleichen und Mittelwert bilden
Micha2009

Hallo liebe Excel Freunde.
Ich sitze vor einem Problem und hoffe mir kann einer helfen.
Mein Problem ist folgendes.
Eine Tabelle mit 3 Spalten.
1. Datum, 2. Zeit, 3. Werte
Nun versuche ich alle Werte mit gleichem Datum zu mitteln und in eine neue Spalte G mit zugehörigem Dat...
30.09.2009 12:23:08
Thread-ID: 1106408
5 Beiträge
Spalteninhalte vergleichen über zwei Tabellen
Constantin

Hallo,
ich möchte bzw. muss zwei Tabellen (Tabelle1 und Tabelle2) in einer Arbeitsmappe zeilenweise und dann Spalte für Spalte vergleichen. Spalte 3 enthält jeweils einen eindeutigen Schlüssel (Nr.).
Mir wäre schon sehr geholfen, wenn ich wüsste, wie man eine größere Anzahl von Spalten...
14.01.2010 23:03:17
Thread-ID: 1130094
5 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