Hallo Freunde,
habe folgendes Makro aufgezeichnet:
Sheets("Auftrag 1").Select
Range("O1").Select
Selection.EntireColumn.Hidden = False
Range("O11:O310").Select
Selection.Copy
Range("P11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("O13").Select
Selection.EntireColumn.Hidden = True
Sheets("Gesamt A1").Select
Columns("A:A").Select
Selection.ClearContents
Sheets("Auswertung A1").Select
Range("D1:D310").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets("Auswertung A1").Select
Range("A2").Select
Dim quelle As Worksheet, ziel As Worksheet
Dim i As Integer, j As Integer
Dim vorhanden As Boolean
Set quelle = Application.Worksheets("Auswertung A1")
Set ziel = Application.Worksheets("Gesamt A1")
ReDim artnr(quelle.Cells(Rows.Count, 1).End(xlUp).Row) As String
j = -1
For i = 1 To Sheets("Auswertung A1").Cells(Rows.Count, 1).End(xlUp).Row
vorhanden = False
For k = 0 To j
*** If quelle.Cells(i, 1) = "" Or quelle.Cells(i, 1) = artnr(k) Then vorhanden = True ***
End If
Next k
If vorhanden = False Then
j = j + 1
artnr(j) = quelle.Cells(i, 1)
End If
Next i
For i = 0 To j
ziel.Cells(i + 1, 1) = artnr(i)
Next i
Sheets("Gesamt A1").Select
Range("A1").Select
End Sub
Mein Problem:
In der Ursprungsdatei hatte ich 200 Zeilen die mir dieses MAKRO ausgewertet hat und es war alles in Ordnung.
Dann habe ich noch 100 Zeilen hinzu gefügt und auch geklappt.
Jetzt versuche ich wieder Zeilen zu löschen und das MAKRO hängt sich an dieser Zeile auf:
*** If quelle.Cells(i, 1) = "" Or quelle.Cells(i, 1) = artnr(k) Then vorhanden = True ***
Sternchen nur die Kennzeichnung, an welcher Stelle das MAKRO stehen bleibt.
Hat einer in der großen EXCEL - Weld eine Lösung für mich parat?
Danke im voraus,
Jochen