In nächste freie Zelle einfügen
19.07.2017 08:20:02
Roman
ich als Praktikant habe die Aufgabe bekommen einen Prozess in Excel zu automatisieren. Es geht darum in den Zellen zu erkennen was darin steht und dann je nachdem eine passende Grafik aus einem anderen Sheet zu kopieren, und sie in ein neues Sheet einzufügen. Ich bin soweit gekommen dass es für die erste Zeile funktioniert, jedoch suche ich nach einer Möglichkeit dass durch das schleifen die nächste Grafik wieder unter die erste (am besten mit einer Zeile dazwischen)für die eingefügt wird. Ich habe die zu ändernde Stelle mit einem Pfeil markiert, diese Stelle tritt immer wieder auf. Der Code sieht wie folgt aus:
Sub Modulnummer_1()
'Modulnummer 1
Dim i As Integer
i = 2
For i = 2 To 20
If Cells(i, 2).Value = "PS-24" Then
Sheets("Vorlagen").Select
Range("A1:F17").Select
Selection.Copy
Sheets("ttt").Select
Range("A1").Select