"Range("A1").Size" = DIN A4
17.05.2016 19:28:28
Mods
ich möchte das beim Aktivieren einen Worksheets die Zelle A1 die große eines DIN A4 Blattes annimmt, das was ich alles mit www.gidf.de finde hilft mir da ehrlich gesagt nicht weiter... Den Bereich möchte ich später als Diagrammbereich festlegen.
Ich wollte Sie mit einem Faktor Teilen das läuft aber nicht :/ Laufzeitfehler 1004
Könnt ihr mir da zur ner eleganten Lösung verhelfen?
Danke und Gruß Marc
Sub Teildavon()
For i = 2 To wks2.Cells(Columns.Count, 1).End(xlUp).Row
ActiveWorkbook.Worksheets.Add after:=ActiveWorkbook.Worksheets(ActiveWorkbook. _
Worksheets.Count)
ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count).Name = wks2.Cells(i, 1)
With ActiveSheet
.Range("B10:X10").Value = wks1.Range("A1:W1").Value
.Columns("C:C").NumberFormat = "dd.mm.yyyy"
With .Range("A1")
.ColumnWidth = 210 / 0.035277778
.RowHeight = 297 / 0.035277778
End With
End With
For t = 2 To wks1.Cells(Columns.Count, 14).End(xlUp).Row
If wks1.Cells(t, 14) = ActiveSheet.Name Then
wks1.Range(Cells(t, 1), Cells(t, 23)).Copy
ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial _
xlPasteValues
End If
Next
Next
End Sub
Anzeige