meinst Du so:
Sub umsetzen_pegel1()
vonZeile = 2 'Startzeile
bisZeile = Cells(65536, 1).End(xlUp).Row 'EndZeile
nZeile = 1 'neue Zeile
nSpalte = 10 'ZielSpalte
altVrp = 0
For i = vonZeile To bisZeile
If Cells(i, 1) <> "" Then
'wenn VrP wechselt neue Zeile
If altVrp <> Cells(i, 4) Then
nZeile = nZeile + 1
altVrp = Cells(i, 4)
End If
Cells(nZeile, nSpalte) = Cells(i, 2) 'ONKZ
Cells(nZeile, nSpalte + 1) = Cells(i, 4) 'VrP
Cells(nZeile, nSpalte + 2) = Cells(i, 3) 'ASB
Cells(nZeile, nSpalte + 11) = Cells(i, 7) 'Bemerkung
Cells(nZeile, nSpalte + 2 + Cells(i, 6)) = Cells(i, 5) 'Pegel
End If
Next i
End Sub
Spalte L= ASB
Gr??e
Georg