Oder nur:
oder
PHP-Code:
Sub M_snb()
With Tabelle1.Cells(1).CurrentRegion
.Offset(2, 1).Resize(.Rows.Count - 2, .Columns.Count - 1) = .Rows(1).SpecialCells(-4123).Formula
End With
End Sub
Code:
Sub M_snb()
With Tabelle1.Cells(1).CurrentRegion
.Rows(1).SpecialCells(-4123).Copy .Offset(2, 1).Resize(.Rows.Count - 2, .Columns.Count - 1)
End With
End Sub