Fehlermeldung bei Excel-Replace ohne Änderungen

11/03/2008 - 13:38 von Florian Joßbächer | Report spam
Hallo zusammen,

ich möchte gerne einen aus Access exportierten Excel-Bericht
nachtràglich per VBA formatieren, was insgesamt auch gut funktioniert.
Allerdings habe ich ein Problem bei der Korrektur von Zeilenumbrüchen:
Ich habe eine Funktion, die nach (durch den Export) falsch
formatierten Umbrüchen sucht und diese ersetzt. Auch das funktioniert,
ich erhalte allerdings eine Fehlermeldung, wenn es nichts zu ersetzen
gibt ("Microsoft Excel kann keine Daten zum Ersetzen finden").

Wie kann ich das möglichst einfach abfangen?

Habe es bereits mit "DoCmd.Setwarnings False" und "xlApp.DisplayAlerts
= False" versucht, die Meldung bleibt.

Code:
Sub FormatExcelDat(Exceldatnam As String)

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

On Error Resume Next

Set xlApp = CreateObject("Excel.Application")
On Error GoTo 0
Set xlBook = xlApp.Workbooks.Open(Exceldatnam)
Set xlSheet = xlBook.Worksheets(1)
With xlSheet
' AutoFormatierungen
.UsedRange.AutoFormat Format:=xlRangeAutoFormatSimple,
Number:=True, _
Font:=True, Alignment:=True,
Border:=True, _
Pattern:=True, Width:=True

' Zellausrrichtung àndern
.UsedRange.VerticalAlignment = xlCenter

End With

' Balken entfernen und durch ordentliche Zeilenumbrüche
ersetzen

EndCell = Range("A1").SpecialCells(xlCellTypeLastCell).Address

ActiveSheet.Range("A1:" & EndCell).Replace _
What:=Chr(13) & Chr(10), Replacement:=Chr(10), _
SearchOrder:=xlByColumns, MatchCase:=True

xlBook.Save
xlApp.Application.Quit
End Sub

Gruß und Dank
Florian
 

Lesen sie die antworten

#1 Stefan Hoffmann
11/03/2008 - 14:00 | Warnen spam
hallo Florian,

Florian Joßbàcher schrieb:
Allerdings habe ich ein Problem bei der Korrektur von Zeilenumbrüchen:
Ich habe eine Funktion, die nach (durch den Export) falsch
formatierten Umbrüchen sucht und diese ersetzt.
Wie kann ich das möglichst einfach abfangen?


Exportiere einfach schon die korrekten Umbrüche...

mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen