Uddrage data fra eet ark og om-organisere dem i et andet ark

Skal det forstås således at

    Vej+"mellemrum"+nummer        telefonnummer   

er en samlet tekst-streng, og at

    postnr+ "mellemrum"+by    emailadresse   

er en anden streng, der står i cellen under den første?

Jo, så glemte jeg lige at data kommer i lind strøm dernedad på arket med spring på 11 linier

**A**          **B**                        **C**
"navn"       
       
       
    "vej"+mellemrum+"nummer"    tlf: "telefonnummer"
    "postnummer"+mellemrum+"by"    email
       
       
       
       
       
       
mvh Svend

Ja, jeg har lige prøvet at sætte det op så man kan se kolonnerne, men det gik ikke helt som forventet.

"navn" er celle nr A1
"vej"+mellemrum+"nummer" er celle B4
tlf: "telefonnummer" er celle C4
"postnummer"+mellemrum+"by" er celle B5
"email" er celle C5

næste "navn" er celle A12

Så det du i princippet er uder efter er:

=A1 & " " & B4 & " " & B5 & " " & C4 & " " & C5

Ja
A1 & B4 & C4 & B5 & C5
skal bare sættes ind i hver sin celle i et nyt ark som
A1 & A2 & A3 & A4 & A5

Logaritmen skal så springe 11 liner ned og hente næste sæt og så fremdeles indtil der ikke er flere data

næste sæt skal selvfølgelig lægges som
B1 & B2 & B3 & B4 & B5

osv.

I det nye ark skal du lige bruge en tællerkolonne, f.eks. kolonne A hvor du skriver

A1: =INDIREKTE("Ark1!A"&(RÆKKE(AA1)-1)*11+1;SAND)
B1: =INDIREKTE("Ark1!B"&(RÆKKE(AB1)-1)*11+4;SAND)
C1: =INDIREKTE("Ark1!B"&(RÆKKE(AA1)-1)*11+5;SAND)
D1: =INDIREKTE("Ark1!C"&(RÆKKE(AA1)-1)*11+4;SAND)
E1: =INDIREKTE("Ark1!C"&(RÆKKE(AA1)-1)*11+5;SAND)

Husk at ovenstående refererer til fanebladet "Ark1", hvis du bruger et andet navn, skal du lige rette det.

Derefter kopiere du bare formlerne så langt ned som nødvendigt.

Det ser rigtigt ud.

Vi glemte bare at i B4 skal "vej" og "nummer" adskilles i hver sin celle, ligeså med B5 med "postnummer" og "by"

Er det noget du skal gøre mange gange, eller et det bare denne ene gang?

det er 7000 adresser der skal trækkes ud i denne omgang
og jeg kommer til at lave porceduren igen ved senere lejlighed

Prøv med

A1: =INDIREKTE("Ark1!A"&(RÆKKE(A1)-1)*11+1;SAND)
B1: =VENSTRE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND);FIND(" ";INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND);1)-1)
C1: =HØJRE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND);LÆNGDE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND))-FIND(" ";INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND);1)*1)
D1: =VENSTRE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+5;SAND);4)
E1: =HØJRE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+5;SAND);LÆNGDE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+5;SAND))-5)
F1: =INDIREKTE("Ark1!C"&(RÆKKE(A1)-1)*11+4;SAND)
G1: =INDIREKTE("Ark1!C"&(RÆKKE(A1)-1)*11+5;SAND)

som makro, kopirer til Ark2

Public Sub FlytAdresser()
Dim Temp As Variant
For i = 1 To 5000 Step 11
a = Sheets("Ark2").Range("A65535").End(xlUp).Row + 1
Sheets("Ark2").Cells(a, "A") = Cells(i, "A").Value
Temp = Split(Cells(i + 3, "B"), " ")
For T = 0 To UBound(Temp)
Sheets("Ark2").Cells(a, T + 2) = Temp(T)
Next

Sheets("Ark2").Cells(a, "F") = Cells(i + 3, "C").Value

K = 4
Temp = Split(Cells(i + 4, "B"), " ")
For T = 0 To UBound(Temp)
Sheets("Ark2").Cells(a, T + K) = Temp(T)
Next
Sheets("Ark2").Cells(a, "G") = Cells(i + 4, "C").Value
Next
End Sub

Jeg ved ikke hvordan jeg skal få makroen til at køre, men det kører ganske udemærket med celle-logaritmerne, bortset fra når vejnavnet består af to eller flere ord, f.eks.:

Kong Georgs Vej

så ryger sidste del af vejnavnet over sammen med nummeret

Den med nummeret blev vist lidt langhåret, men jeg tror det virker

Prøv at ændre følgende:

B1: =VENSTRE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND);LÆNGDE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND))-(LÆNGDE(C1)+1))
C1: =MIDT(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND);FIND(TEGN(13); UDSKIFT(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND);" ";TEGN(13);LÆNGDE(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND))-LÆNGDE(UDSKIFT(INDIREKTE("Ark1!B"&(RÆKKE(A1)-1)*11+4;SAND);" ";""))))+1;255)

Tusinde tak Sjap, det virker perfekt

har du fået pointene?

Når jeg trykker på Accepter svar bliver jeg henvist til en side der siger at jeg skal acceptere svaret under indlægget. Er det ikke det jeg allerede gør?

Næh - pointene er ikke rullet ind. Du skal huske at markere mit navn - ellers sker der ikke noget.

OK - så skulle det være iorden
og tak igen

:0)