Falsche Ausgabe
16.02.2015 10:33:57
Chris
Ich nerve nochmal nachdem mir hier schon sehr gut geholfen wurde!
Ich habe folgenden VBA Code:
Sub Repur_Sortieren()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Select Case Cells(i, 9)
Case "Alpha": Cells(i, 3) = Cells(i, 16)
Case "Beta": Cells(i, 3) = Cells(i, 16)
Case "Omega": Cells(i, 3) = Cells(i, 20)
End Select
Next i
End Sub
Ziel ist es, dass alles von C1 bis C* automatisch passend gefüllt wird.
Danke und liebe Grüße
Anzeige