Makro prüfen, schneller machen
03.03.2020 01:27:32
Kisska
ich habe ein Makro zusammengebaut, bin mir aber nicht sicher, ob alles korrekt ist. Von meinem Gefühl her, ist das Makro etwas langsam:
Sub WennDannKopiere()
'Alle vorhandenden Werte ab H2 l?schen
Range(Cells(2, 8), Cells(Rows.Count, 8).End(xlUp)).ClearContents 'Spalte H = 8
Dim c As Range
For Each c In ActiveSheet.Range("G2:G183")
If c.Value > 100 Then
Cells(c.Row, "H").Value = Cells(c.Row, "D")
Else
Cells(c.Row, "H").Value = ""
End If
Next c
End Sub
Das macht mein Makro:
Wenn der jeweilige Wert in der Spalte G > 100, dann kopiere den jeweiligen Wert aus der Spalte D in die Spalte H ein. Formelmäßig wäre die Lösung in H2: =WENN(G2>100;D2;"")
Bevor das Makro beginnt, sollen alle Spaltenwerte ab D2 gelöscht werden.
Ich würde mir auch wünschen, statt Range("G2:G183") ab G2 zu schreiben, weiß aber nicht wie man es mit End(xlUp) hier einbaut.
VG, Kisska