Flytte celleindhold til en celle

må man se arket, hvordan er data opstillet. ?

Hvordan skal jeg vise dig det ?

sende det, eller vise et link til det.

ok jeg kan sagtens sende det men hvortil??

Hvis du benytter dig af msn kan jeg evt sende det til dig min mail er: black@kochsgadenet.dk

sendtil#kabbak@tiscali.dk

fjern sendtil#

skriv lige lidt forklaring om opgaven.

Ok kan se i andre spørgsmål at du efterhånden kender den opgave :-)

er sendt retur

maattedyret: Offentliggør venligst svaret, jvf. Ekspertens regel §2.8., så andre kan få gavn af svaret.

Ekspertens regel §2.8:
"Hvis der udloddes andre præmier end point såsom penge, så skal spørgsmålet placeres i kategorierne Opgaver eller Job/opgaver. Svaret på - eller løsningen til - et sådant spørgsmål behøver ikke at blive offentliggjort på Eksperten - i modsætning til spørgsmål, der involverer point. De skal offentliggøres på sitet. Kategorierne Opgaver og Job/opgaver kan stadig indeholde spørgsmål med point som præmier. I så fald gælder de almindelige regler såsom offentliggørelse af svar."

Ekspertens regler: http://www.eksperten.dk/regler.phtml

Den jeg lavede er her, men den der ikke luset færdig, da jeg mener at elever skal arbejde videre på oplægget.

Sub Clean_Database()
Dim RK As Long, OD As Worksheet, NDB As Worksheet, I As Long, _
Skænket As String, Besk As Variant, BNavn As String ' ny linie
Set OD = Sheets("old_database") ' ny linie

ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "database"
Set NDB = Sheets("database") ' ny linie
NDB.Activate
Range("a4") = "Reg.nr."
Range("b4") = "Underkategori"
Range("c4") = "Placering"
Range("d4") = "Sprog"
Range("e4") = "Ejer"
Range("f4") = "Overskrift/Navn"
Range("g4") = "Beskrivelse"
Range("h4") = "Skænket/doneret af"
'****************************************** herfra  ****************
I = 5 ' starter i række 5
Worksheets("old_database").Activate
RK = Range("B65536").End(xlUp).Row ' finder sidste række i "old_database"
For a = 6 To RK
If OD.Range("B" & a) <> "" Then ' hvis den ikke er tom, gør noget

    If OD.Range("B" & a) <> OD.Range("G" & a) Then
      If OD.Range("G" & a).Offset(-1, 0) = OD.Range("B" & a) Then
        BNavn = OD.Range("G" & a)
      End If
    If OD.Range("B" & a) <> OD.Range("B" & a + 2) Then
    Skænket = OD.Range("G" & a)
    NDB.Range("A" & I) = OD.Range("B" & a) 'Reg.nr.
    NDB.Range("B" & I) = OD.Range("C" & a) 'Underkategori
    NDB.Range("C" & I) = OD.Range("D" & a) 'Placering
    NDB.Range("D" & I) = OD.Range("E" & a) 'Sprog
    NDB.Range("E" & I) = OD.Range("F" & a) 'Ejer
    NDB.Range("F" & I) = BNavn            'Overskrift/Navn
    NDB.Range("G" & I) = Besk              'Beskrivelse
    NDB.Range("H" & I) = Skænket          'Skænket/doneret af
    Skænket = ""
    Besk = ""
    I = I + 1
    a = a + 1
    Else
        Besk = Besk & OD.Range("G" & a) & Chr(10) ' beskrivelse samles i variablen besk
      End If
    End If

End If

Next

End Sub

Undskyld det var jeg ikke opmærksom på.