|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Spalten vergleichen |
09.06.2021 21:12:57 |
Anne |
|
|
|
09.06.2021 22:21:48 |
Ulrich |
|
|
|
10.06.2021 07:49:26 |
Gast31117 |
|
|
|
11.06.2021 08:32:27 |
Ulrich |
|
|
|
11.06.2021 13:37:57 |
Anne |
|
|
|
11.06.2021 16:21:59 |
Ulrich |
|
|
|
16.06.2021 23:43:20 |
Anne |
|
|
|
17.06.2021 15:45:14 |
Ulrich |
|
|
Von:
Anne |
Datum:
09.06.2021 21:12:57 |
Views:
952 |
Rating:
|
Antwort:
|
Thema:
Spalten vergleichen |
|
Hello, kann mir jmd bitte helfen und sagen, warum das Makro nur funkitoniert, wenn ich die Spalte 1 von Report_Alt mit Report_Neu vergleiche, aber nicht wenn ich die Spalte 4 beispielsweise auf Neuerungen/Aktualisierungen suche und die Unterschiede hervorheben möchte?
Laufzeitfehler 9, Index außerhalb des gültigen Bereichs wird mit dann Zeile 11 anagegeben, also wenn überall ne 4 anstatt ne 1 steht.
Danke Danke.
Sub UnterschiedeIn2Färben()
Dim vntIn As Variant
Dim objDic As Object
Dim i&
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = ThisWorkbook.Worksheets("Report_Alt")
Set wks2 = ThisWorkbook.Worksheets("Report_Neu")
Set objDic = CreateObject("Scripting.Dictionary")
vntIn = wks1.UsedRange.Value
For i = LBound(vntIn, 1) To UBound(vntIn, 1) '
If Not objDic.Exists(vntIn(i, 1)) Then _
objDic.Add vntIn(i, 1), ""
Next
For i = 1 To wks2.Cells(Rows.Count, 1).End(xlUp).Row
If Not objDic.Exists(wks2.Cells(i, 1).Value) Then wks2.Cells(i, 1).Interior.ColorIndex = 3
Next
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Spalten vergleichen |
09.06.2021 21:12:57 |
Anne |
|
|
|
09.06.2021 22:21:48 |
Ulrich |
|
|
|
10.06.2021 07:49:26 |
Gast31117 |
|
|
|
11.06.2021 08:32:27 |
Ulrich |
|
|
|
11.06.2021 13:37:57 |
Anne |
|
|
|
11.06.2021 16:21:59 |
Ulrich |
|
|
|
16.06.2021 23:43:20 |
Anne |
|
|
|
17.06.2021 15:45:14 |
Ulrich |
|
|