Hallo zusammen,
ich möchte gerne prüfen lassen ob in einem Feld AKTIV steht und in einem anderen ASP. Es sollen eine Textdatei(Daten.PRE) durchsucht werden und dann das Ergebnis an Excel übergeben werden.
Im Moment wird mir nur die Spaltenüberschrift:
IEX-Nummer, Namen, Vornamen... angezeigt????
DANKE für die Hilfe
[code]
Private Sub list_asp_Click()
On Error Resume Next
frmAdressen.WindowState = 1
Dim clsExcel As New Class1, i As Integer
clsExcel.NewWorkBook
clsExcel.NewWorkSheet
clsExcel.Visible = True
clsExcel.FillCell "IEX-Nummer", 1, 1
clsExcel.FillCell "Namen", 1, 2
clsExcel.FillCell "Vornamen", 1, 3
clsExcel.FillCell "Position", 1, 4
clsExcel.FillCell "Status", 1, 5
Dim varAdresse As AdressenInfo
On Error Resume Next
' Länge des Datensatzes berechnen
varRECLaenge = Len(varAdresse)
varLETZTERRec = FileLen("Daten.PRE") / varRECLaenge
For i = 1 To varLETZTERRec
varACTRec = i
frmAdressen.AktuellenDatensatzAnzeigen
if frmAdressen.txtleer3.text = “aktiv“ and frmAdressen.txtInboundID.text = “ASP“ then[/b]
clsExcel.FillCell frmAdressen.txtIEXnr, i + 1, 1
clsExcel.FillCell frmAdressen.txtNachname, i + 1, 2
clsExcel.FillCell frmAdressen.txtVorname, i + 1, 3
clsExcel.FillCell frmAdressen.txtInboundID, i + 1, 4
clsExcel.FillCell frmAdressen.txtleer3, i + 1, 5
end if
Next
clsExcel.ActiveSheet = 2
End Sub