Private Sub cmd_Convert()
    Dim XLAPP As Object
    Dim CurrentPrint As Integer
    Set XLAPP = CreateObject("Excel.Application")
 
  XLAPP.Visible = True
  XLAPP.workbooks.Open ("C:\tonline_11032004_1339.dat")
  XLAPP.activeworkbook.sheets(1).Columns(1).Insert shift:=xltoright
  XLAPP.cells(1, 1).Formula = "KEY"
  XLAPP.cells.Select
  Ersetzen "Hallo", "Test"
End Sub
 
 
Sub Ersetzen(strOld As String, strNew As String)
    Selection.Replace What:=strOld, Replacement:=strNew, LookAt:=xlPart _
    , SearchOrder:=xlByRows, MatchCase:=False
End Sub