Zunächst möchte ich einen Dank aussprechen für die aktiven und auch inaktiven (Archiv) Antworten
zu den verschiedenen Excel Themen.
Nun, mich beschäftigt ein weiteres Problem:
Ich vergleiche zwei Sheets nach der Spalte D. Stimmen die Daten überein wird die Spalte farbig markiert.
Danach sollen die farbigen Spalten gezählt werden und ausgegeben werden.
Der Code:
Private Sub cmdVergleich_Click()
Dim i As Integer
Dim j As Integer
Dim k As String
Dim m As String
i = 1
j = 1
n = 1 'Zähler für die zu durchsuchenden Zeilen
x = 0 'Anzahl der farbigen Zellen
k = txtDatei1.Text 'Eingabe aus der Textbox 1
m = txtDatei2.Text 'Eingabe aus der Textbox 2
For i = 2 To 200
For j = 2 To 200
If Worksheets(k).Range("D" & i).Value = Worksheets(m).Range("D" & j).Value Then
Worksheets(k).Rows(i).Interior.ColorIndex = 4
End If
Next j
Next i
For n = 2 To 200
If Cells(n, 1).Interior.ColorIndex = 2 Then '4 entspricht grün
x = x + 1
End If
Next
Sheets("Vergleich").Activate
Range("A1").Select
ActiveCell.Value = x
End
End Sub
Zur Erklärung: Ich habe hier eine Userform mit Textboxen in die die Sheets (k und m) eingegeben werden.Meine Fragen:
Geht es das statt der ganzen Zeile nur die Zelle eingefärbt wird? (Nur Zellen in Spalte D)
Anscheinend ist es so das der Bezug zu dem gerade eingefärbten Sheet fehlt. Weil trotz Einfärbung
nur 0 ausgegeben wird. Was fehlt hier?
Wie mache ich es das zusätzlich zu den eingefärbten Zellen auch die nichteingefärbten Zellen gezählt werden?
Gruß
Markus