Herbers Excel-Forum - das Archiv
letzte Spalte unterstreichen
- letzte Spalte unterstreichen von Ralf vom 09.11.2003 14:08:21
- AW: letzte Spalte unterstreichen - von Hans W. Herber am 13.11.2003 06:30:13
- AW: letzte Spalte unterstreichen - von Hans W. Herber am 13.11.2003 06:30:13
 |
Betrifft: letzte Spalte unterstreichen
von: Ralf
Geschrieben am: 09.11.2003 14:08:21
Hallo alle zusammen
Ich habe hier ein Problem bei dem ich nicht weiterkomme ich möchte ein makro haben, wo die letzte spalte eines Arbeitsblattes unterstrichen wird. wenn mehrere Seiten vorhanden sind hab ich schon eine Lösung gefunden aber sobald ich bei "If IsError(varPB) Then " ankomme klappt es nicht
Die Spaltenanzahl der seite ist immer unterschiedlich. Ich habe schon einen Anfang gemacht " glaub ich zumindest" aber es kommt immer eine Fehlermeldung jetzt weiß ich nicht was da Falsch ist. vielleicht gibt es ja auch eine andere Lösung für mein Problem bin für jeden vorschlag dankbar
hier das makro
Dim varPB As Variant
Dim iPage As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iPage = 1
Do While IsError(varPB) = False
varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
If IsError(varPB) Then
Rows(varPB - 2 & ":" & varPB + 3).Insert Shift:=xlDown
Range(Cells(varPB - 1, 1), Cells(varPB - 1, 6)).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
GoTo ENDE
Exit Sub
Else
.......
.......
......
MfG Ralf
 |
Betrifft: AW: letzte Spalte unterstreichen
von: Hans W. Herber
Geschrieben am: 13.11.2003 06:30:13
Hallo Ralf,
über diesen Ansatz kann es nicht funktionieren. Wenn die Schleife bei der Seite angelangt ist, die nicht mehr existiert, liefert varPB einen Fehlerwert, der natürlich nicht als Zeilenindex vorgegeben werden kann.
Eine mögliche Lösung (für nicht allzugroße Bereiche) auf Basis benutzerdefinierter Funktionen in Kombination mit der bedingten Formatierung findest Du hier:
https://www.herber.de/bbs/texte/13bedingt.xls
gruss hans
| |