AW: Eine Spalte mit vielen anderen Spalten inhaltlich vergleichen?
09.11.2019 14:12:43
Piet
Hallo Sergej
zu deinem Glück liegt auf meinem Schreibtisch neben dem PC ein Übersetungs Wörterbuch von Mario Barth, Codemedian aus Berlin. Sehr empfehlenswert - Deutsch - Forumsprache für Unwissende
Er schreibt das in einem Thread Worte stehen, die man als Deutscher geistig sogar verstehen kann, OHNE auf fremde Rechner zu schauen!! Mir gelang es nur mit "viel Übersetungsarbeit" herauszufinden, das du einfach nur Spalten miteinander vergleichen willst. Sowas aber auch!!!
Wie makaber das einfache Volksschüler dieses Deutsch sogar verstehen können, und Lösungen anbieten, ohne etwas zu verlinken. Ich glaube das musste mal ganz "höflich" gesagt werden!!
mfg Piet
Sub Spalten_vergleich()
Dim i, j, n, l, lz1, Txt As String
'LastZell in Spalte A suchen
lz1 = Cells(Rows.Count, 1).End(xlUp).Row
'Spalten F-M Innenfarbe löschen
Range("F3:M" & lz1).Interior.ColorIndex = xlNone
'Ab Zeile 3 bis Ende vergleichen
For j = 3 To lz1
'vergleiche C mit Spalte F-M
For i = 6 To 13 'Spalte F-M
If Cells(j, 3).Value Cells(j, i).Value Then
'bei Abweichung rot markieren
Cells(j, i).Interior.ColorIndex = 3
'** Leerzellen gelb markieren
If Cells(j, i).Value = "" Then
Cells(j, i).Interior.ColorIndex = 6
End If '** wenn NEIN bis hier löschen
'Zaehler für Ungleich und Leerzellen +1
If Cells(j, i).Value = "" Then l = l + 1
n = n + 1
End If
Next i
Next j
'Auswertung mit MsgBox Anzeige
If l > 0 Then Txt = vbLf & l & " Zellen sind Leerzellen"
If n > 0 Then MsgBox n & " Zellen mit Abweichungen" & Txt
If l + n = 0 Then MsgBox "Alle Zellen stimmen überein!"
End Sub