Office: Zellen per VBA formatieren?

Wie kann man Zellen und Zellbereiche mit Hintergrundfarben und Linien per VBA formatieren?

Danke schonmal im vorraus!
Gruß
Simon

:)

 

Hallo Simon,

falls Du den VBA-Code nicht kennst, kannst Du in Deinem Fall ein Makro aufzeichnen. Dann eine oder mehrere Zellen in dem hewünschten Format formatieren und Aufzeichnung beenden. Und schon hast Du den VBA-Code.

Code:

Gruß
Andi

 

Super, wo krieg ich jetzt noch ne Liste der Colorindexes her, also welche Nummer welche Farbe ist?
Und bei Weight = xlThin, welche anderen optionen es noch gibt um die dicker zu machen?
Danke vielmals! *wink.gif*

 

eine Farbtabelle findest Du hier
Excel ABC: digitales Zeitalter navigieren &#128073 einfach erklärt!

Ist zwar XL97, aber an den Nummer sollte sich nichts geändert haben :-)

 

sowohl wight als auch LineStyle findest Du in der XL-Hilfe

XlBorderWeight kann eine der folgenden XlBorderWeight-Konstanten sein.
xlHairline
xlThin
xlMedium
xlThick

XlLineStyle kann eine der folgenden XlLineStyle-Konstanten sein.
xlContinuous
xlDash
xlDashDot
xlDashDotDot
xlDot
xlDouble
xlSlantDashDot
xlLineStyleNone

Viel Spaß damit
Andi

 

Danke! Eines noch:
Wie krieg ich ne Variable in den Zellbereich? Bisher habe ich einfach
("J"+Var) eingegeben, aber das geht hier nicht (""J"+Var:"J"+Var") *rolleyes.gif*

 

Hallo,

range("a" & var & ":a" & var)

das sollte dein Problem lösen

 

Jetzt noch etwas, wie kann ich auf eine bestimmte Datei zugreifen?
Range("L8:L13").Select und zwar bei den 3 Rot markierten. Aus irgendeinem Grund macht er in beiden Dateien unterschiedlich Markierungen, aber ich glaub ich hab da ein allgemeines Problem im Code. Wenn jemand was auszusetzen hat, einfach schreiben in verstehst nämlich net ganz.



Sub Tableformat()

Dim formatfile As Workbook
Dim formatZiel As String
Dim strVerzeichnis As String
strVerzeichnis = "C:\"
formatZiel = "source.xls"
Set formatfile = Workbooks.Open(filename:=strVerzeichnis & "" & formatZiel)


Dim werk As String
Dim firstsheet As String
Dim aktsheet As Integer
Dim aktzeileq As String
Dim aktzeilez As String



aktzeileq = "6"
aktzeilez = "2"
aktsheet = 1


Do Until IsEmpty(Cells(aktzeileq, 1))


Range("A" & aktzeilez & ":F" & aktzeilez).Select With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With

Range("A" & aktzeilez & ":F" & aktzeilez).Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With

'Rahmen

Range("A" & aktzeilez & ":F" & aktzeilez).Select Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


'Erste Zelle
Workbooks("source.xls").Worksheets(Sheets(aktsheet).name).Range("A2").Copy _
Destination:=Workbooks("target.xls").Worksheets("Tabelle1").Range("A" & aktzeilez)
'Zweite Zelle
Workbooks("source.xls").Worksheets(Sheets(aktsheet).name).Range("C" + aktzeileq).Copy _
Destination:=Workbooks("target.xls").Worksheets("Tabelle1").Range("B" + aktzeilez)
'Dritte Zelle
Workbooks("source.xls").Worksheets(Sheets(aktsheet).name).Range("A" + aktzeileq).Copy _
Destination:=Workbooks("target.xls").Worksheets("Tabelle1").Range("C" + aktzeilez)

aktzeileq = aktzeileq + 1
aktzeilez = aktzeilez + 1
Loop






End Sub

 

Moin, FI_Simon,

es gibt da eine wunderschöne Erfindung in VBA, Einzelschrittmodus genannt - mit der Taste F8 kann man sich die Ergebnisse ansehen, die da durch den Code passieren. Und wenn Du Dir das hättest ansehen können, hättest Du festgestellt, dass Du mit einem Rahmen am Ende bzw. nach der Schleife ausgekommen wärst. Ich habe das Öffnen und Übertragen (da ist mir nicht klar, warum einmal A2 und ansonsten Zellwerte) nicht geprüft, der Rest des Codes (warum setzt Du ein Objekt auf die neu zu öffnende Mappe, wenn Du dieses danach nicht mehr verwendest?). Ich habe mich ein wenig an dem Code versucht:

Code: