Hallo an die Gemeinschaft der VBA Profis.
Schönen Abend und hätte da eine Bitte:
Folgende Schleife macht was sie soll.
Sie schneidet in der Spalte C den Wert einer Zelle aus und fügt diesen in der darüber liegenden ein. Es handelt sich dabei nur um ein Wort.
With Worksheets("Mitarbeiterverwaltung")
.Range("C" & GlaubensZelle).ClearContents
For i = GlaubensZelle To .Cells(Rows.Count, 3).End(xlUp).Row
.Range("C" & GlaubensZelle + 1).Cut Destination:=.Range("C" & GlaubensZelle)
GlaubensZelle = GlaubensZelle + 1
Next i
End With
Aber beim Einfügen Destination:=......dauert es für nur 60 Zellen fast zwei Minuten.
Ist vorhanden:With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Ihr wisst sicher wie das nur Sekunden dauern wird.
DANKE und mfg
STeve