title image


Smiley Hääää.........???? Anwendungs- oder objektdefinierter Fehler
Hallo,

ich möchte mit untenstehendem Code eine Textdatei öffnen und in den Spalten J+K den Punkt durch ein Komma ersetzen. Anschließend möchte ich Berechnungen vornehmen (noch ohne Code)!

Ich stehe auf der Leitung! Warum bekomme ich Die Fehlermeldung "Anwendungs- oder objektdefinierter Fehler"?



Danke für eure Hilfe





Private Sub CommandButton1_Click()

Dim fileToOpen As String

Const Lw = "x:\"

Const Pfad = "X:\X-01 daten\X-1.1 - DOWNLOAD"



ChDir Pfad

fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Wählen Sie die zu bearbeitende Datei!")



Workbooks.OpenText Filename:= _

fileToOpen, Origin:=932, _

StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _

ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _

, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _

Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _

Array(10, 1), Array(11, 2), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _

16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _

Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1)), TrailingMinusNumbers:=True





Columns("J:K").Replace What:=".", Replacement:=",", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False



End Sub
Man muß nur wissen wer was weiss!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: