VBA-Formatierungsscript
22.06.2006 12:42:27
Jan
https://www.herber.de/bbs/user/34540.xls
(Zeilengröße etc. ist schon in einer anderen Methode erledigt)
Das löse ich mit folgender Formel:
(das Array text() ist definiert, genauso wie exle=Excel.Application)
---------------------------------------
Sub Info()
Dim i, j, infovar, charvar1, charvar2, bordervar
infovar=10
For i=0 to 1 step 1
For j=0 to 4 step 1
exle.Cells(row, j*8+1).Value = text(infovar)
infovar = infovar+1
If (j=0) then
charvar1="A"
charvar2="H"
End If
If (j=1) then
charvar1="I"
charvar2="P"
End If
If (j=2) then
charvar1="Q"
charvar2="X"
End If
If (j=3) then
charvar1="Y"
charvar2="AF"
End If
For bordervar=7 to 11 step 1
exle.Range(Chr(34) & charvar1 & row & Chr(58) & charvar2 & row+1 & Chr(34)).Borders(bordervar).LineStyle = 1
exle.Range(Chr(34) & charvar1 & row & Chr(58) & charvar2 & row+1 & Chr(34)).Borders(bordervar).Weight = 4
Next
Next
row = row+2
Next
End Sub
---------------------------------
Mir wird bei diesem Teil:
For bordervar=7 to 11 step 1
exle.Range(Chr(34) & charvar1 & row & Chr(58) & charvar2 & row+1 & Chr(34)).Borders(bordervar).LineStyle = 1
exle.Range(Chr(34) & charvar1 & row & Chr(58) & charvar2 & row+1 & Chr(34)).Borders(bordervar).Weight = 4
Next
Ein Unbekannter Laufzeitfehler ausgegeben, aber die Syntax ist doch korrekt..? (habe ich ihn evtl. mit dem Range(Inhalt) überlastet?)
Danke schonmal'(: