Zellen mit einer List vergleichen
08.01.2015 14:38:39
Christian
ich möchte das Bereich E9:E500 (Tabellenblatt_2) mit einer List vergleichen (Tabellenblatt_1 - N56:N84). Wenn die Daten übereinstimmen, dann möchte ich die Spalten von G bis L in der gleichen Reihe löschen. Ich habe schon ein Makro geschrieben, aber das bezieht nur auf ein Tabellenblatt.
Quellcode
1.
Private Sub CommandButton3_Click()
2.
3.Application.ScreenUpdating = False
4.Application.Calculation = xlCalculationManual
5.
6. Dim i As Integer
7. With Sheets("Plan")
8. For i = 9 To 500
9. If .Cells(i, 5) = "Samstag" Then
10. .Cells(i, 7) = vbNullString
11. .Cells(i, 8) = vbNullString
12. .Cells(i, 9) = vbNullString
13. .Cells(i, 10) = vbNullString
14. .Cells(i, 11) = vbNullString
15. .Cells(i, 12) = vbNullString
16. End If
17. Next
18. End With
19.
20.Application.ScreenUpdating = True
21.Application.Calculation = xlCalculationAutomatic
22.
23.End Sub
Vielen Dank im Voraus.