Sub TabelleStandardisieren()
Dim StartZeile, EndZeile, StartSpalte, EndSpalte, AktSpalte As Integer
Dim i, j, k, l, m As Integer
Dim Teile As Variant
StartZeile = Selection.Row
EndZeile = Selection.Row + Selection.Rows.Count
StartSpalte = Selection.Column
EndSpalte = Selection.Column + Selection.Columns.Count - 1
i = StartZeile
While i 0 Then
For k = 0 To UBound(Teile) - 1
Debug.Print "Zeile " & k & ": " & Teile(k) & "Zeile " & i & " einfügen"
Range(Cells(i, StartSpalte), Cells(i, EndSpalte)).Insert xlShiftDown
EndZeile = EndZeile + 1
i = i + 1
For l = StartSpalte To EndSpalte
If l = j Then
Cells(i - 1, l) = Teile(k)
Else
Cells(i - 1, l) = Cells(i, l)
End If
Next l
Next k
Cells(i, j) = Teile(UBound(Teile))
End If
Next j
i = i + 1
Wend
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen