Ich habe ein Problem. Excel ist zu klein und hat nur 256 Spalten. Ich fülle eine ZEile mit Werten auf. Wenn die 256 Spalte erreicht ist soll er eine neue Zeile einfügen, die ersten beiden Zellen (A,B) von oben kopieren und dann weiterauffüllen. Ich habe folgendes MAkro geschrieben:
Dim leML As Long, j, x, y, SP As Long
leML = Cells(Rows.Count, 2).End(xlUp).Row
leWL = Worksheets("Werkzeugliste").Cells(Rows.Count, 1).End(xlUp).Row
For j = 3 To leML
SP = 2
For x = 2 To leWL
If Worksheets("Werkzeugliste").Cells(x, 1) = Cells(j, 2) Then
SP = Worksheets("Werkzeugliste").Cells(x, Columns.Count).End(xlToLeft).Column
If SP = 256 Then
y = x + 1
Worksheets("Werkzeugliste").Rows(y).Select
Selection.Insert Shift:=xlUp
Worksheets("Werkzeugliste").Cells(x, 1).Select
Selection.Copy
Worksheets("Werkzeugliste").Cells(y, 1).Select
ActiveSheet.Paste
Worksheets("Werkzeugliste").Cells(x, 2).Select
Selection.Copy
Worksheets("Werkzeugliste").Cells(y, 2).Select
ActiveSheet.Paste
End If
SP = SP + 1
If Worksheets("Werkzeugliste").Cells(x, SP) = "" Then
Worksheets("Werkzeugliste").Cells(x, SP) = Cells(j, 1)
End If
End If
Next x
Next j
End Sub
Er fügt aber noch nichtmal eine neue Zeile ein. Das weiterauffüllen konnte ich daher auch noch nicht weiterprobieren. Ich hoffe mir kann jemand helfen.