256 Zeilen Problem mit Makro
01.08.2006 14:07:57
Nachtwey
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.