Makros unter Excel schreiben Reiter

... komplette Frage anzeigen

1 Antwort

Hallo lonewulf86,

Da es eine Aufgabe ist, werde ich dir nicht die Lösung aber dafür den Weg posten.

Schreibe in deinem Makro einen With-Block, der die Tabelle nachgestellt bekommt. Nun gehst du mit einer Schleife durch die Zellen (" .Cells(i,1)") und fragst ab, ob dort "Rita" steht. Wenn dem so ist, lässt du dann die Zeile nach Worksheets("Rita") kopieren. Dabei darauf achten, dass du mit Worksheets("Rita").Range("A1").End(xlDown).offset(1, 0) die nächst freie Zeile findest.

Grüsse

Higlav

PS: Bei Fragen einfach schreiben :D

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?