AW: Funzt nicht
07.02.2010 22:02:03
fcs
Hallo Beni,
dann muss man halt mal mit dem Recorder aufzeichnen, um die Syntax grob hinzubekommen.
Gruß
Franz
Sub aaTest()
Dim wks As Worksheet, lngRow As Long
Set wks = ActiveSheet
lngRow = 16
With wks
'Diese Zellen sollten Arial 9 formatiert werden
With .Cells(lngRow + 2, 10)
.Value = "Seitentotal"
With .Font
.Size = 9
.Name = "Arial"
End With
End With
With .Cells(lngRow + 11, 10)
.Value = "Übertrag"
With .Font
.Size = 9
.Name = "Arial"
End With
End With
.Cells(lngRow + 8, 2) = "POS."
.Cells(lngRow + 8, 3) = "BEZEICHNUNG"
.Cells(lngRow + 8, 8) = "MENGE"
.Cells(lngRow + 8, 9) = "EINH."
.Cells(lngRow + 8, 10) = "E.-PREIS"
.Cells(lngRow + 8, 11) = "BETRAG"
With .Range(.Cells(lngRow + 8, 2), .Cells(lngRow + 8, 3)).Font
.Size = 9
.Name = "Arial"
End With
With .Range(.Cells(lngRow + 8, 8), .Cells(lngRow + 8, 11)).Font
.Size = 9
.Name = "Arial"
End With
' sollte eine Linie erhalten.
With .Range(.Cells(lngRow + 1, 2), .Cells(lngRow + 1, 11)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
End With
'Und Zeile + 6 sollte auf Zeilenhöhe .3 formatiert sein.
.Rows(lngRow + 6).RowHeight = 3
End With
End Sub