Würde gerne eine Zelle mit eine Ganzen Spalte verlgeichen dafür hab ich schonmal angefangen dieses Program hier zu schreiben. "Hallo" ist nur der Test das es Funktioniert... was es leider nicht tut könnte mir da jemand HElfen und es richtig stellen damit ich weiter dran arbeiten kann?
Private Sub CommandButton1_Click()
Dim i1 As Integer
i1 = 1
For i = 1 To 100
If Tabelle1.Range("A" & i1) = Tabelle2.Cells(1, 1) Then
MsgBox "Hello"
Next i
End If
End Sub
|