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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de