Code verbessern
25.11.2016 16:08:06
Sev
Erstens ist jedem Wert in der gleichen Zeile der Spalte B noch ein zweiter Wert von 1-5 zugeordnet. Damit wird die Zielzeile (k) im Raster (1-5) bestimmt. Die Zielspalte (w) ergibt sich aus dem Wert in Spalte A. Aber es soll nach jeweils 20 Positionen ein "Zeilenumbruch" erfolgen, sprich der Wert 21 soll nicht in Spalte 21 stehen, sondern wieder in Spalte 1, aber in Zeile 7-12 (je nach k) usw.
Das Makro macht schon genau das, was ich will. Mich interessiert als Laien aber, ob und wie man _ den if-Code verbessern kann oder es eine geeignetere Lösung gibt. Die Erhöhung von k und w dient jeweils dazu, in meinem Raster die richtige Position zu finden.
Sub Raster()
Dim i As Long
Dim w As Long
Dim k As Long
For i = 1 To 100
w = Range("A" & i).Value
k = Range("B" & i).Value
If w