Hallo,
ich habe wieder ein Problem mit einem meiner Makros. Ich versuche einen markierten Bereich in eine neue Mappe zu kopieren ohne dabei die Zeilengröße zu verändern. Ich schaffe es zwar die Zeilenbreite beizubehalten, jedoch nicht die Zeilenhöhe.
Hier der Code: (Nach Application.CutCopyMode = False versuche ich die Zeilenhöhe zu übertragen. Der Code-Teil darüber funktioniert ohne Probleme.)
Sub KopierenTabellen()
'
' KopierenTabellen Makro
'
'
Dim strFileName As String
Dim wkb, wkbNew As Workbook
With Selection
strFileName = .Cells(1, 1).Value
.Copy
End With
Set wkbNew = Application.Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
wkbNew.Sheets(1).Paste Destination:=wkbNew.Sheets(1).Range("A3")
Application.CutCopyMode = False
Dim iZeile%, iStart%, iEndZeile%, iZeilenHöhe%
Dim sQuellTabelle$, sZielTabelle$
iStartZeile = 1
iEndZeile = Len("strFileName")
sQuellTabelle = "strFileName"
sZielTabelle = "wkbNew"
For iZeile = iStartZeile To iEndZeile
iZeilenHöhe = Selection.Rows(iZeile & ":" & iZeile).EntireRow.RowHeight
Workbooks(wkbNew).Sheets(1).Rows(iZeile & ":" & iZeile).EntireRowHeight = iZeilenHöhe
Next
End Sub
Danke im Vorraus für eure Hilfe.
ich habe wieder ein Problem mit einem meiner Makros. Ich versuche einen markierten Bereich in eine neue Mappe zu kopieren ohne dabei die Zeilengröße zu verändern. Ich schaffe es zwar die Zeilenbreite beizubehalten, jedoch nicht die Zeilenhöhe.
Hier der Code: (Nach Application.CutCopyMode = False versuche ich die Zeilenhöhe zu übertragen. Der Code-Teil darüber funktioniert ohne Probleme.)
Sub KopierenTabellen()
'
' KopierenTabellen Makro
'
'
Dim strFileName As String
Dim wkb, wkbNew As Workbook
With Selection
strFileName = .Cells(1, 1).Value
.Copy
End With
Set wkbNew = Application.Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
wkbNew.Sheets(1).Paste Destination:=wkbNew.Sheets(1).Range("A3")
Application.CutCopyMode = False
Dim iZeile%, iStart%, iEndZeile%, iZeilenHöhe%
Dim sQuellTabelle$, sZielTabelle$
iStartZeile = 1
iEndZeile = Len("strFileName")
sQuellTabelle = "strFileName"
sZielTabelle = "wkbNew"
For iZeile = iStartZeile To iEndZeile
iZeilenHöhe = Selection.Rows(iZeile & ":" & iZeile).EntireRow.RowHeight
Workbooks(wkbNew).Sheets(1).Rows(iZeile & ":" & iZeile).EntireRowHeight = iZeilenHöhe
Next
End Sub
Danke im Vorraus für eure Hilfe.