VBA Formeln durch Werte ersetzen, wenn...
26.06.2020 12:33:41
Micha
ich benötige mal wieder Eure Unterstützung!
Mit dem untenstehenden Code lösche ich die Zeilen in denen in der Spalte A ein x oder X steht.
Nun benötige ich einen Code der folgendes macht:
Wenn in der Spalte A eine Zahl zwischen 1-100 steht sollen die Formeln im Bereich B:U durch Werte ersetzt werden.
Ich hoffe sehr auf Eure Hilfe
Vielen Dank, Micha
Sub x_Loeschen()
Dim i As Long
Sheets("Übersicht").Select
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "x" Or Cells(i, 1) = "X" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Anzeige