Ich habe oft das Problem das Auszuwertende Daten durch einen Zeilenumbruch nicht
brauchbar ausgewertet werden können
Das sieht folgendermaßen aus
Wie sieht hier eine Lösung per VBA aus?
Gruß
Raid
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