jeg har et excel ark med 2 kolloner i 1. er der navn, adresse, by postnummer (seperet med komma) og i 2. kollone er det person navn der skal stå att: xxxx
kan jeg expotere disse data til word? jeg kan oploade excel og label ark hvis det hjælper?
Var det en ide, at få en stump VBA, der adskiller de enkelte felter i kolonnne 1 - overføre dem til hver sin kolonne i et andet ark (kolonne 2 kommer naturligvis med) -således at du direkte kan anvende dette ark til brevfletning i Word?
Følgende kode indsættes i XLS.filen - VBA-vinduet (Alt+F11) - ThisWorkbook: Ark 1 gennemlæses - felter flyttes til ark 2 med start i række 2, da jeg manuelthar indsat overskrifter. Navn | Adresse | Postnr By | Att. i række 1 - af hensyn til brevfletningen:
Hvis du ønsker det kan hele xls-filen sendes - send en mail til: pb@supertekst-it.dk ====================================================================================
Dim navn, adresse, postnrBy, att Dim a2Ræk Sub workbook_activate() Sheets(1).Select
sv = MsgBox("Opbyg til etiketter", vbYesNo) If sv = 6 Then adskilFelter
MsgBox ("Opbygning er afsluttet") Sheets(2).Select ActiveSheet.Columns.AutoFit End If
End Sub Private Sub adskilFelter() Dim ræk, maxRæk With ActiveWorkbook.Sheets(1) .Cells(1, 1).Select maxrække = ActiveCell.SpecialCells(xlLastCell).Row
For ræk = 1 To maxrække felt = .Cells(ræk, 1) If Right(felt, 1) <> "," Then felt = felt + "," End If
navn = hentDelfelt(felt) adresse = hentDelfelt(felt) postnrBy = hentDelfelt(felt) att = .Cells(ræk, 2)
indsætFelter ræk + 1 Next ræk End With End Sub Private Function hentDelfelt(felt) Dim p p = InStr(felt, ",") If p > 0 Then hentDelfelt = Left(felt, p - 1) felt = Mid(felt, p + 1) End If End Function Private Sub indsætFelter(ræk) With ActiveWorkbook.Sheets(2) .Cells(ræk, 1) = navn .Cells(ræk, 2) = adresse .Cells(ræk, 3) = postnrBy
If att <> "" Then .Cells(ræk, 4) = "Att.: " + att End If End With End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.