Office: VBA

Kalium91 · 10. April 2017

Hallo liebe Community,

ich glaube das meine Frage reaktiv schnell zu lösen ist und eigentlich sehr simpel. Ich habe es aber leider nicht hinbekommen obwohl ich auch im Internet etwas gesucht habe und hoffe das Ihr mir jetzt helfen könnt.

Es geht ganz einfach darum, zwei Zeilen zu überprüfen ob dieses identisch sind.

Die eine Zeile geht von E6 bis G6 und die anderen E13 bis G16.

Wenn diese Identisch sind soll nichts passieren und wenn es einen Fehler gibt soll eine Meldung angezeigt werden.

Eine große Weiterentwicklung wäre noch, dass in der Fehlermeldung angezeigt wird welche Zelle genau abweicht und diese vielleicht auch noch mit einer Farbe markiert.

Den code den ich bis jetzt versucht habe sieht so aus:

Set Vbereich = Range("e6, g6")
Set Abereich = Range("e13:g13")
For Each Zellen In Vbereich
For Each zelle In Abereich
If Zellen.Value = zelle.Value Then
MsgBox "falsche Form"
Exit For
End If
Next
Next

Vielen Dank für die Hilfe.

:)

aloys78 · 12. April 2017

Hallo,

Es geht ganz einfach darum, zwei Zeilen zu überprüfen ob dieses identisch sind.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein Vorschlag:
Code:

Option Explicit

Sub Test()
Dim c As Long
Range("E6:G6").Interior.ColorIndex = xlNone
For c = 5 To 7
If Cells(6, c) Cells(13, c) Then
Cells(6, c).Interior.ColorIndex = 6
MsgBox "Zelle " & Cells(6, c).Address & " ungleich"
Exit Sub
End If
Next c
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Ekimflow · 12. April 2017

Ich denke Du willst überprüfen, ob die 2 Zeilen identisch sind und nicht ob alle zellen dieser 2 Zeilen identisch sind, oder?

Wenn dem so ist, dann ist der Ansatz von 2 verkettenten Schleifen schon falsch.
Bei deinem Ansatz würde jede Zelle der 2. Zeile mit jeder Zelle der 1. Zeile verglichen werden.

Auch das vorzeitige Verlassen der Schleife wenn ein Fehler gefunden wurde ist eher ungünstigt. Du verläst die Überprüfung beim Finden des ersten Fehlers.
Du musst also den Code immer wieder laufen lassen, bis keine Fehler mehr auftreten, anstatt erstmal alle Fehler zu suchen und zu markieren.

jack_D · 12. April 2017

Moin Moin

Weil ich grad Lust hatte

Code:

Sub vergleich()
Dim ABereich As Variant
Dim BBereich As Variant

Dim StrFehler As String
Dim i As Integer

StrFehler = "Fehler in "

With Worksheets("Tabelle1")

BBereich = .Range("E6:G6")
ABereich = .Range("E13:G13")

For i = 1 To UBound(ABereich, 2)
If ABereich(1, i) BBereich(1, i) Then
.Cells(6, 4 + i).Interior.ColorIndex = 3
StrFehler = StrFehler & Cells(6, 4 + i).Address & " & "
End If
Next i

End With

If Len(StrFehler) > 10 Then
MsgBox Left(StrFehler, Len(StrFehler) - 3)
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Rückmeldung & Bewertung wär nett

Grüße Jack

steve1da · 12. April 2017

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Danke.

Gruß,
steve1da

Kalium91 · 12. April 2017

Danke erstmal für die schnellen Antworten.

Der Code von Jack geht leider nicht ganz, weil im Bereich
For i = 1 To UBound(ABereich, 2)
immer eine Typenunverträglichkeit angezeigt wird.

Der von aloys klappt super*Smilie.

DANKE!

Office: VBA

VBA

VBA

VBA

VBA - Similar Threads - VBA

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Erstellung eines Dynamischen Kalenders (ggf. VBA)