AW: Tabelle in anderem Format darstellen
25.09.2023 11:59:29
UweD
Hallo
so?
Sub Soll()
Dim LR As Long, i As Long, TB1 As Worksheet, TB2 As Worksheet
Dim Z1 As Integer, SP As Integer, Lager As String
Set TB1 = Sheets("Tabelle1")
Z1 = 5 'erste Datenzeile
SP = 3 'Daten in Spalte C
Set TB2 = Sheets.Add(after:=Sheets(Sheets.count))
With TB1
LR = .Cells(.Rows.count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To Z1 Step -1
If Left(.Cells(i, SP), 1) = "*" Then
Lager = .Cells(i, SP)
Else
TB2.Cells(i, SP) = Lager
TB2.Cells(i, SP + 1) = .Cells(i, SP)
End If
Next
End With
End Sub
LG UweD