[VBA] Ersetzen in Selection, Excel

16/01/2008 - 16:22 von Sebastian Schlereth | Report spam
Hallo,

Iregenwie mags heute nicht, vielleicht seht Ihr den Fehler.


(Wàhle eine Exceldatei aus -> strInputFileName)

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

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

Set xlBook = xlApp.Workbooks.Open(strInputFileName)

'Excelsheet wird gewàhlt
Set xlSheet = xlBook.Worksheets("Auftràge")

xlSheet.Range("G2:G2000").Replace What:="L", Replacement:="",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Ergibt Laufzeitfehler 9.

Mit folgendem ebenso nicht:

xlSheet.Activate
xlSheet.Range("G2:G2000").Select
xlApp.Selection.Replace


Eigendlich möchte ich in einer Spalte nur das führende L löschen. Die
Zellen enthalten L[Auftragsnummer] und das L kann ich nicht gebrauchen.

Grüße!
Sebastian
-
Bitte nur in die Newsgroup antworten!
Answering into newsgroups please!
 

Lesen sie die antworten

#1 Melanie Breden
16/01/2008 - 17:11 | Warnen spam
Hallo Sebastian ,

"Sebastian Schlereth" schrieb:
Iregenwie mags heute nicht, vielleicht seht Ihr den Fehler.



<Snipp Code>

ich habe den Code getestet, allerdings aus Excel heraus, da làuft er auch ohne
zu selektieren einwandfrei durch.

Wird das Tabellenblatt auch erkannt?
Teste mal folgende Zeile im Code:

Set xlSheet = xlBook.Worksheets("Auftràge")
MsgBox xlSheet.Index ' Ist Tabelle vorhanden?

Welche Excel-Version verwendest du, und welches Programm ruft den Code auf?


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de
Das Excel-VBA Codebook 2007 http://tinyurl.com/2nwvod

Ähnliche fragen