title image


Smiley Re: Hallo Excelspezialisten!!!!
sub macro() dim i as long dim ok as boolean dim zw as string sheets("Tabelle1").select i = 0 ok = true open datei.text for random as #1 while ok = true i = i + 1 zw = range("A"+mid(format(i),2)) if zw "" then put #1, zw else ok = false endif wend colse #1end sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: