Zeilenhöhe mitkopieren
03.05.2018 15:49:32
Franz
gibt es eine Möglichkeit die Zeilenhöhe mitzukopieren? Ich kopiere aus einem Sheet einen Zellbereich in ein anderes Sheet. Das ganze auch mehrmals hintereinander.
Die Zeilenhöhe lässt sich damit leider nicht mitkopieren...gibt es irgendeine Möglichkeit dazu?
Sieht so aus:
Sub Einfügen
Application.ScreenUpdating = False
ActiveSheet.Unprotect (GetPassword)
Dim NextRow As Integer
Dim rangeAdrese As String
ActiveSheet.Outline.ShowLevels RowLevels:=2
NextRow = ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count + 3, 3).End(xlUp).Row
rangeAdrese = "A" + str(NextRow + 2) + ":" + "BB" + str(NextRow + 29)
rangeAdrese = Replace(rangeAdrese, " ", "")
Application.EnableEvents = False
Sheets("Namensliste").Range("A33:BB61").Copy ActiveSheet.Range(rangeAdrese)
Application.EnableEvents = True
ActiveSheet.Protect Password:=GetPassword
Application.ScreenUpdating = True
End Sub
Gruß