SELECT Table2 SCAN #if .t. *** if StrTran(VorName, " ", "")==Rtrim(Vorname) in table1 you don't need to work via RAT *** But table1.Strasse has Spaces Embedded lcStrasse = RTRIM( Strasse ) FPUTS( m.lnFHandle, ; STUFF( RTRIM( Name ), AT( " ", Name ), 1, ", " ) +", "+ ; STUFF( m.lcStrasse, RAT( " ", m.lcStrasse ), 1, ", " ) +", "+ ; STUFF( RTRIM( Ort ), AT( " ", Ort ), 1, ", " ) +", "+ ; RTRIM( eMail ) ) #else lcName = RTRIM( Name ) lcStrasse = RTRIM( Strasse ) FPUTS( m.lnFHandle, ; STUFF( m.lcName, RAT( " ", m.lcName ), 1, ", " ) +", "+ ; STUFF( m.lcStrasse, RAT( " ", m.lcStrasse ), 1, ", " ) +", "+ ; STUFF( RTRIM( Ort ), AT( " ", Ort ), 1, ", " ) +", "+ ; RTRIM( eMail ) ) #endif ENDSCAN FCLOSE( m.lnFHandle )thomas