hallo an alle!
und zwar i programmier grad in visual basic in access und möcht lediglich einen rahmen auf der rechten seite in der 5ten spalte einfügen. hab mir scho nein makro aufzeichnen lassen von excel und wollts übernehmen ins vb in access aber funkt net leider!
kann mir wer helfen?!
lg sabrina
Hallo, Sabrina!
und zwar i programmier grad in visual basic in access und
möcht lediglich einen rahmen auf der rechten seite in der 5ten
spalte einfügen. hab mir scho nein makro aufzeichnen lassen
von excel und wollts übernehmen ins vb in access aber funkt
net leider!kann mir wer helfen?!
Ungefähr so:
Sub FetteLinieRechtsVonDerFuenftenSpalte()
Dim appExcel As New Excel.Application
Dim wbDatei As Workbook
Dim wsSheet As Worksheet
' Datei öffnen
Set wbDatei = appExcel.Workbooks.Open("C:\Temp\DeineDatei.xls")
Set wsSheet = wbDatei.Worksheets(1)
' durchgezogene Linie über ganze Spalte
wsSheet.Columns("E:E").Borders(xlEdgeRight).LineStyle = xlContinuous
' schöne fette Linie
wsSheet.Columns("E:E").Borders(xlEdgeRight).Weight = xlThick
' Datei wieder speichern und alles schließen
wbDatei.Save
wbDatei.Close
appExcel.Quit
End Sub
Der Verweis auf Microsoft Excel Object Library muss (über „Extras“-„Verweise“ im VB-Editor) hinzugefügt sein. Statt der gesamten Spalte könntest Du auch nur einen Bereich mit dem rechten Rand versehen, z. B. mit wsSheet.Range(„E1:E5“)
Gruß, Manfred
dankeschön hat funktioniert!
weißt du vl auch wie ich den text in die mitte setzen kann
Code:
With wsAusgabe.Range(quartal)
.Merge
.Value = „Quartal1“
.Font.Bold = True
.Font.Size = 11
Danke nochmals für die hilfe! hat mir sehr geholfen!
und warum funktioniert das dann nicht ?
wsAusgabe.Rows(„6:6“).Borders(xlEdgeButtom).LineStyle = xlContinuous
(
hast du vl eine ahnung
lg sabrina und danke für deine hilfe
Hallo, Sabrina!
dankeschön hat funktioniert!
Gut:wink:
weißt du vl auch wie ich den text in die mitte setzen kann
With wsAusgabe.Range(quartal)
.Merge
.Value = „Quartal1“
.Font.Bold = True
.Font.Size = 11
.HorizontalAlignment = xlCenter
Gruß, Manfred
Hi, Sabrina!
und warum funktioniert das dann nicht ?
wsAusgabe.Rows(„6:6“).Borders(xlEdgeButtom).LineStyle =
xlContinuous
Das wunderte mich auch. Bis ich’s gesehen habe:
wsAusgabe.Rows(„6:6“).Borders(xlEdgeBottom).LineStyle = xlContinuous funktioniert; da war ein Tippfehler bei xlEdgeBottom (mit zwei mal „o“).
Gruß, Manfred