|
Falls mit X irgendeine Zahl gemeint ist, passende Zeilen aktivieren (Apostroph wegmachen)
und bei
If Cells(z, s) <> "X" Then ' Falls X "X" bedeuten soll
Apostroph davor setzen.
Wenn mit X der Buchstabe "X" gemeint ist, nix machen.
Sub Schaltfläche1_Klicken()
Dim x, z, s
'x=7 'Falls x irgend eine Zahl bedeuten soll
For s = 11 To 17
For z = 4 To 166
If Cells(z, s) <> "X" Then ' Falls X "X" bedeuten soll
'If Cells(Z, s) <> x Then 'Falls X irgend eine Zahl bedeuten soll
Cells(z, s) = ""
End If
Next z
Next s
Range(Cells(4, 19), Cells(166, 19)).Copy
Cells(4, 18).Select
ActiveSheet.Paste
Range(Cells(4, 19), Cells(166, 19)).ClearContents
End Sub
|