Hallo,
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.
Könnt ihr mir Hinweise geben?
Vielen Dank im Voraus.
Mfg
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
- Private Sub CommandButton3_Click()
- Application.ScreenUpdating = False
- Application.Calculation = xlCalculationManual
- Dim i As Integer
- With Sheets("Plan")
- For i = 9 To 500
- If .Cells(i, 5) = "Samstag" Then
- .Cells(i, 7) = vbNullString
- .Cells(i, 8) = vbNullString
- .Cells(i, 9) = vbNullString
- .Cells(i, 10) = vbNullString
- .Cells(i, 11) = vbNullString
- .Cells(i, 12) = vbNullString
- End If
- Next
- End With
- Application.ScreenUpdating = True
- Application.Calculation = xlCalculationAutomatic
- End Sub
Könnt ihr mir Hinweise geben?
Vielen Dank im Voraus.
Mfg
Christian
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kriisz“ ()