ich will dass das Makro auf meinem Sheet immer zur ersten freien Zelle in der Spalte B springt. Das Makro an sich ist mit einer Schleife versehen. Das Problem ist, dass das Makro beim ersten mal funktioniert und etwas in die erste freie Zelle einfügt, jedoch wird das eingefügte immer überschrieben und das Makro springt nicht mehr in die nächste freie Zelle (also im 2. Durchgang unter das eingefügte, ich will es aneinanderreihen). Kann mir jemand helfen ?
Hier der Code dazu:
Sub Makro_Modulerstellung()
Dim i As Integer
i = 2
For i = 2 To 50
Sheets("Modulbenennung").Select
If Cells(i, 2).Value = "AS-P" Then
Sheets("Module").Select
Range("B1:AI4").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "PS-24" Then
Sheets("Module").Select
Range("B6:AI9").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "DO-FA-12-H" Then
Sheets("Module").Select
Range("B11:AI23").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "DO-FC-8-H" Then
Sheets("Module").Select
Range("B25:AI33").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "AO-V-8-H" Then
Sheets("Module").Select
Range("B35:AI43").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "AO-8-H" Then
Sheets("Module").Select
Range("B45:AI53").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "DI-16" Then
Sheets("Module").Select
Range("B55:AI71").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "RTD-DI-16" Then
Sheets("Module").Select
Range("B73:AI89").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "UI-8.AO-4-H" Then
Sheets("Module").Select
Range("B91:AI103").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "UI-8.DO-FC-4-H" Then
Sheets("Module").Select
Range("B105:AI117").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
ElseIf Cells(i, 2).Value = "UI-16" Then
Sheets("Module").Select
Range("B119:AI135").Select
Selection.Copy
Sheets("ASP-OHM0_V99 (2)").Select
Cells(Range("B1").End(xlUp).Row + 8, 2).Select
ActiveSheet.Paste
End If
Next i
End Sub