Jetzt war ich eine weile mit anderen Dingen beschäftigt und nun kehre ich wieder an meine Excel-Geschichten zurück. Ach wie haben mir die Codes gefehlt :-)
Ich habe mal wieder ein Problemchen für die Tüftler unter euch.
Und zwar folgendes:
Ein Makro soll prüfen, ob in Spalte A (ab A25 nach unten) der Wert grösser 0 ist. Wenn dies der Fall ist, soll diese Zeile kopiert werden und etwas weiter oben eingefügt werden.
Habe schonmal folgendes Makro geschrieben. Dieses aber prüft nur eine einzige Zelle und kopiert die Zeile bzw. den Bereich an die gewünschte Zelle. Kann man den irgendwie anpassen?
Ich danke schonmal von Herzen den Experten. Ihr habt mir schon soooo viel geholfen! Danke Danke Danke
Sub prüfenkopiereneinfügen()
If ActiveSheet.Cells(56, 1).Value >= 0 Then
Range("A56:J56").Select
Selection.Copy
Range("A25").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub