title image


Smiley Re: Wenn das Problem nun immer noch besteht...jetzt der Zwischenteil
Hallo Elvis,

danke für deine Bereitschaft, dich durch noch mehr Code zu wühlen - allerdings ist da meines Erachtens nichts kritisches drin, was die anesprochene Problematik betrifft -



Viele Grüße

Ulrich



es kommt der Zwischenteil:

hier lese ich die normierten Meldungen eines Faxservers aus und verteile sie mittels MID auf vier Excel-Spalten:



Dim Dummy As String, L_Zei As Long, Spalte As Long

L_Zei = xlMappe.Sheets("Daten").Cells(65536, 3).End(-4162).Row

On Error Resume Next

Dim Schluss As Long

Schluss = gefunden.Items.Count

K = Schluss

While K > 0

X = gefunden.Items(K).Body

Zähler = Zähler + 1

ST_Betr_V = InStr(X, "Betreff")

ST_Betr_H = InStr(ST_Betr_V, X, Chr(13))

xlMappe.Sheets("Daten").Cells(L_Zei + Zähler, 2) = Trim(Mid(X, ST_Betr_V + 9, ST_Betr_H - ST_Betr_V - 9))



ST_Wann_V = InStr(X, "Gesendet am:")

ST_Wann_H = InStr(ST_Wann_V, X, Chr(13))

If IsDate(Trim(Mid(X, ST_Wann_V + 13, ST_Wann_H - ST_Wann_V - 13))) Then

xlMappe.Sheets("Daten").Cells(L_Zei + Zähler, 3) = CDate(Trim(Mid(X, ST_Wann_V + 13, ST_Wann_H - ST_Wann_V - 13)))

Else

xlMappe.Sheets("Daten").Cells(L_Zei + Zähler, 3) = Trim(Mid(X, ST_Wann_V + 13, ST_Wann_H - ST_Wann_V - 13))

End If

ST_Empf_V = InStr(X, "Folgende Empfänger konnten nicht erreicht werden:")

ST_Empf_H = InStr(ST_Empf_V, X, Chr(13))

ST_Empf_H2 = InStr(ST_Empf_H + 1, X, Chr(13))



ST_Wann2_V = InStr(ST_Empf_H2 + 1, X, " am ")



ST_Empf_H3 = InStr(ST_Empf_H2 + 1, X, Chr(13))

Neu = ""

If IsNumeric(Trim(Mid(X, ST_Empf_H2 + 2, ST_Wann2_V - ST_Empf_H2 - 2))) Then

Neu = "[FAX:" & Trim(Mid(X, ST_Empf_H2 + 2, ST_Wann2_V - ST_Empf_H2 - 2)) & "]"

Else

Neu = Trim(Mid(X, ST_Empf_H2 + 2, ST_Wann2_V - ST_Empf_H2 - 2))

End If

xlMappe.Sheets("Daten").Cells(L_Zei + Zähler, 1) = Neu

If IsDate(Trim(Mid(X, ST_Wann2_V + 3, ST_Empf_H3 - ST_Wann2_V - 3))) Then

xlMappe.Sheets("Daten").Cells(L_Zei + Zähler, 4) = CDate(Trim(Mid(X, ST_Wann2_V + 3, ST_Empf_H3 - ST_Wann2_V - 3)))

Else

xlMappe.Sheets("Daten").Cells(L_Zei + Zähler, 4) = Trim(Mid(X, ST_Wann2_V + 3, ST_Empf_H3 - ST_Wann2_V - 3))

End If

'Gefunden.Items(K).Delete

K = K - 1

Wend


(Falls vorhanden:) Tabellen sind eingefügt mit Tool von Schorsch Dabbeljuh
hier sein offizieller Download-Link

(Fast) alles über Excel-Formeln ohne VBA findet man auf der Seite Excelformeln

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: