Sub AdresUitExcelInBestandOpslaan()

rij = ActiveCell.Row
kolom = ActiveCell.Column

firmanaam = Cells(rij, kolom)
contactpersoon = Cells(rij, kolom + 1)
straat = Cells(rij, kolom + 2)
huisnummer1 = Cells(rij, kolom + 3)
huisnummer2 = Cells(rij, kolom + 4)
postcode = Cells(rij, kolom + 5)
plaats = Cells(rij, kolom + 6)

Open "n:\AdresUitExcel.txt" For Output As #1
Print #1, firmanaam
Print #1, contactpersoon
Print #1, straat; " "; huisnummer1; " "; huisnummer2
Print #1, postcode; "  "; plaats
Close #1

End Sub