Hallo excelboy33,
vielleicht nicht so elegant nd langsamer, dafür aber auch für einen Anfänger zu verstehen:
k = 1 'Schreibzeile in Tabelle 2
Sheets(2).Columns(1).Clear 'löscht Spalte A der Tabelle2
For i = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 'von Zeile 1 bis zur letzten beschriebenen Zelle in Tabelle 1, Spalte A
a = InStr(Sheets(1).Cells(i, 1), "From") 'enthält der Text 'From'?
If a > 0 Then
b = InStr(7, Sheets(1).Cells(i, 1), " ") 'suche 2. Leerzeichen und Fallunterscheidung
if b>0 then
Sheets(2).Cells(k, 1) = Mid(Sheets(1).Cells(i, 1), 6, b - 5) 'übertrage den Textteil
else
Sheets(2).Cells(k, 1) = Mid(Sheets(1).Cells(i, 1), 6)
end if
k= k + 1 'Index der nächsten Schreibzeile
End If
Next
Gruß
Holger
|