Office: For Each Schleife, Zellen von zwei Bereichen vergleichen

Sebbi85 · 1. Juli 2018

Wo genau soll ich dies eintragen? Diesen Code gibt es bereits in deinem Skript *Smilie, oder mach ich grade ein Denkfehler?

Code:

Sub Test()
Dim lngZeile As Long
Dim lngZiel As Long
Dim lngLetzte As Long
Dim rngZelle As Range
lngZiel = 2
With Worksheets("Tabelle1")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
.Range(.Cells(3, 1), .Cells(lngLetzte, 4)).Copy Worksheets("Tabelle3").Range("A1")
End With
With Worksheets("Tabelle2")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
.Range(.Cells(3, 1), .Cells(lngLetzte, 4)).Copy Worksheets("Tabelle3").Range("F1")
End With
With Worksheets("Tabelle3")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
For lngZeile = 2 To lngLetzte
Set rngZelle = .Columns(6).Find(.Cells(lngZeile, 1).Value, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
If .Cells(lngZeile, 2) .Cells(lngZeile, 7) Then .Cells(lngZeile, 7).Font.Color = vbRed
If .Cells(lngZeile, 3) .Cells(lngZeile, 8) Then .Cells(lngZeile, 8).Font.Color = vbRed
If .Cells(lngZeile, 4) .Cells(lngZeile, 9) Then .Cells(lngZeile, 9).Font.Color = vbRed
Else
.Range(.Cells(lngZeile, 1), .Cells(lngZeile, 4)).Copy .Cells(lngZiel, 11)
lngZiel = lngZiel + 1
End If
Next lngZeile
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 6)), .Cells(.Rows.Count, 6).End(xlUp).Row, .Rows.Count)
lngZiel = 2
For lngZeile = 2 To lngLetzte
Set rngZelle = .Columns(1).Find(.Cells(lngZeile, 6).Value, lookat:=xlWhole)
If rngZelle Is Nothing Then
.Range(.Cells(lngZeile, 6), .Cells(lngZeile, 9)).Copy .Cells(lngZiel, 16)
lngZiel = lngZiel + 1
End If
Next lngZeile
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 1. Juli 2018

Na logischerweise genau dort. Man kann ja auch mal selbst etwas testen...*wink.gif*

Sebbi85 · 1. Juli 2018

Oh man, ja klar, hatte grade richtig geschlafen..sorry *Smilie

Habe das eingefügt aber so ganz klappt es noch nicht.
Hatte es mal in Tabelle 1 mit E probiert und in Tabelle 2 mit E 456
In Tabelle drei wurde es mir dennoch als rot markiert.

Hast du noch eine andere Idee wie man das lösen könnte? *Smilie

Beverly · 1. Juli 2018

Ist es immer nur der Buchstabe, der übereinstimmen muss und der Rest kann beliebig sein? Falls ja: ist es immer nur 1 Buchstabe oder können es mehrere sein?

Sebbi85 · 1. Juli 2018

Es können auch mehrere Buchstaben sein.

Meistens ist es so dass am Anfang das Grundgerüst der Behandlung steht und danach dann eine individuelle Nummer:

z.B.

LP = LP 400

Beverly · 1. Juli 2018

Gut, das ist schon mal etwas. Kann es auch so sein, dass vor den Buchstaben noch etwas anderes steht, sodass man erst die Buchstaben "herausfiltern" müsste? Wenn ja, ist das dann in beiden Tabellen der Fall oder nur in einer (und wenn ja: in welcher)?

Sebbi85 · 1. Juli 2018

Alle Behandlungen fangen immer mit mind. einem Buchstaben an.
(in beiden Tabellen)

Beverly · 2. Juli 2018

Ergänze am Anfang der Makros dese Zeile:

Code:

Dim lngZaehler As Long
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und ändere den Code:

Code:

If Not rngZelle Is Nothing Then
For lngZaehler = 1 To Len(.Cells(lngZeile, 2))
If IsNumeric(Mid(.Cells(lngZeile, 2), lngZaehler)) Then Exit For
Next lngZaehler
If Left(.Cells(lngZeile, 2), lngZaehler - 1) Left(.Cells(lngZeile, 7), lngZaehler - 1) Then _
.Cells(lngZeile, 7).Font.Color = vbRed
If .Cells(lngZeile, 3) .Cells(lngZeile, 8) Then .Cells(lngZeile, 8).Font.Color = vbRed
If .Cells(lngZeile, 4) .Cells(lngZeile, 9) Then .Cells(lngZeile, 9).Font.Color = vbRed
Else
.Range(.Cells(lngZeile, 1), .Cells(lngZeile, 4)).Copy .Cells(lngZiel, 11)
lngZiel = lngZiel + 1
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sebbi85 · 2. Juli 2018

Vielen lieben Dank, du bist echt spitze.

Noch eine Frage zur Zählenwenn Funktion()

Ich möchte jetzt gerne die Behandlungen noch mit der =ZÄHLENWENN() Funktion zusammen zählen.
(In Tabelle 3, beide Behandlungsspalten.)

Gibt es dort auch noch eine Formel, die erkennt das E und z.B. E 453 das gleiche ist und dann bei E einen hochzählt? (am besten eine Formel, die ich in die Zelle einfügen kann)

Im Anhang habe ich noch eine kleine Grafik, die zeigt was ich meine.

OfficeUser · 2. Juli 2018

Benutze eine Hilfsspalte (im Beispiel Spalte E), in der du alle Zahlen und Leerzeichen entfernst:

Tabelle3
A B C D E
1 Artikelnummer ID Behandlung Uhrzeit
2 1234 E11 H 06:45 E
3 1222 E 1 H 08:00 E
4 5555 E11 100 09:00 E
5 1237 E12 500 12:00 E
6 1236 Z12 TK 13:00 Z
7 7984 E12 23 13:20 E
8 1452 E12 4 15:40 E
verwendete Formeln
Zelle Formel Bereich N/A
E2:E8 =WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSEL N(WECHSELN(WECHSELN(B2;0; );9; );8; );7; );6; );5; );4; );3; );2; );1; );" "; )
Excel-Inn.de

Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit

Sebbi85 · 3. Juli 2018

Alles klar, vielen lieben Dank!

Office: For Each Schleife, Zellen von zwei Bereichen vergleichen

For Each Schleife, Zellen von zwei Bereichen vergleichen

For Each Schleife, Zellen von zwei Bereichen vergleichen

For Each Schleife, Zellen von zwei Bereichen vergleichen

For Each Schleife, Zellen von zwei Bereichen vergleichen

For Each Schleife, Zellen von zwei Bereichen vergleichen - Similar Threads - For Each Schleife

For Each Next läuft nur einmal durch

For Each Schleifen als Struktogramm

For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen

For Each Schleife abbrechen mit IF

For Each Schleife mehrmals nach gleichem Wert suchen

Recordset mit For each durchlaufen

VBA: For Each Schleife mit mehreren Bedingungen

	A	B	C	D	E
1	Artikelnummer	ID	Behandlung	Uhrzeit
2	1234	E11	H	06:45	E
3	1222	E 1	H	08:00	E
4	5555	E11	100	09:00	E
5	1237	E12	500	12:00	E
6	1236	Z12	TK	13:00	Z
7	7984	E12	23	13:20	E
8	1452	E12	4	15:40	E

verwendete Formeln
Zelle	Formel	Bereich	N/A
E2:E8	=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSEL N(WECHSELN(WECHSELN(B2;0; );9; );8; );7; );6; );5; );4; );3; );2; );1; );" "; )