Private Sub Daten_AfterColumnDragDrop(ByVal nCol As Long, ByVal nNewPos As Long)
 nSpalte= StringSplit("Flaeche,Volumen,Laenge", ",")
 With Me.Daten
  For i = 0 To UBound(nSpalte)
   If .Columns(nSpalte(i) & "Dim").Position <> .Columns(nSpalte(i)).Position _
     + 1 Then
    .Columns(nSpalte(i) & "Dim").Position = .Columns(nSpalte(i)).Position + 1
   End If
  Next i
 End With
End Sub