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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen