|
Hallo zusammen,
ich bin nur ein sporadischer VBA Programmierer und komme an einer Sache gerade nicht weiter:
Ich bin dabei ein Makro zu schreiben, bei dem eine sehr lange Spalte aus Datenausgabe eines Gerätes in kleinere Spalten zerlegt un diese nebeneinander kopiert werden sollen.
Jede neue Probe des Gerätes fängt immer wieder mit dem Messpunkt 1 an. (Jede sekunde kommt dann ein neuer Messpunkt hinzu das können dann 100 oder mehr Messpunkte werden). Deshalb möchte ich, wenn in der Spalte wieder einmal "1" vorkommt bis zum letzten Messpunkt der Probe (bevor die nächste Probe wieder mit 1 beginnt) diese Werte in eine neue Spalte geschrieben werden. Wenn dann wieder die nächste "1" kommt wieder eine spalte weiter..usw
Ich verwende eine Schleife For mit dem Zähler i damit Zeile für Zeile die Spalte durchgegangen wird und die Zellen daneben kopiert werden.
Bis jetzt habe ich es geschafft, das der Code die Zeilen ohne "1" <> den Inhalt in die Spalte 4 kopiert die Zeilen mit der "1" in die Spalte 6.
Aber leider die Zeilen die der "1" folgen nicht auch in die Spalte 6 ? Und später sollen ja die herausgeschnittenen Teile aus der Hauptspalte immer nebeneinander kopiert werden. Vielleicht kann mir jemand helfen?
Dim n As Integer, m As Integer
For i = 1 To 20000
n = 11 + i
If Range("B" & n) = "" Then Exit Sub
Range("B" & n, "C" & n).Copy
If Range("B" & n) <> "1" Then
Range(Cells(n, 4), Cells(n, 5)).PasteSpecial
Else
Range(Cells(n, 6), Cells(n, 7)).PasteSpecial
End If
Next i
End Sub
Viele Grüße
Friedrich
|