Ersten Wert suchen
21.09.2016 09:46:41
Andi...
ich bräuchte eure Hilfe.
In der Tabelle werden monatlich Preise für die Artikel eingetragen.
Nun ist es so das neue Artikel nicht schon im Januar einen Preis haben sondern erst wenn sie in die Liste aufgenommen werden. Ich möchte jetzt immer den ersten Preis für einen Artikel in eine Spalte ausgeben. Die Preis für die Artikel befinden sich in den Spalten AA und dann immer in 7er Schritten weiter.
Ich habe auch schon ein Makro geschrieben was auch funktioniert, nur ist es wieder sehr langsam bei mehr als 20.000 Zeilen:
Sub Ausgangs_P()
Dim Daten As Worksheet
Dim i As Long
Dim y As Long
Dim bolFound, bolNotFound As Boolean
Set Daten = Worksheets("Daten")
bolNotFound = False
For i = 3 To Daten.cells(Rows.Count, 1).End(xlUp).Row
For y = 27 To Daten.cells(i, Columns.Count).End(xlToLeft).Column Step 7
If IsNumeric(cells(i, y)) Then
cells(i, 11) = cells(i, y)
If Not IsEmpty(cells(i, 11)) Then
bolFound = True
Exit For
End If
End If
Next y
Next i
End Sub
Vielleicht hat jemand von euch eine Idee wie das schneller gehen könnte.
Vielen Dank und Grüße
Andi
Anzeige