Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: waarden met koptitels uit cel als aparte kolommen tonen

  1. #1
    Mega Senior Stanley19's avatar
    Geregistreerd
    8 januari 2002
    Vraag is opgelost

    waarden met koptitels uit cel als aparte kolommen tonen

    Hi,

    Vanuit 1 cel in excel probeer ik een waarde te verdelen over meerdere kolommen.


    De waarde in de cel heeft koptitels met daaronder tekst (zoals hieronder bijv. weergegeven). De koptitels wil ik als kolomkop aanhouden, maar daaronder de bijbehorende tekst.

    (zie volgende post voor een voorbeeldbestand)


    Dit gaat helaas niet met de tekst naar kolommen functie, maar moet waarschijnlijk met een macro of script.
    Laatst aangepast door Stanley19 : 10 augustus 2018 om 12:37
    Vragen reproduceren vragen.

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Plaats een voorbeeld document.
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Mega Senior Stanley19's avatar
    Geregistreerd
    8 januari 2002
    in tab 1 zoals het nu gepresenteerd wordt, in tab 2 zoals ik het zou willen (excl. '-' voor de tekst onder het kopje).
    Kolom 'omschrijving' in de gewenste situatie zou dan uiteindelijk verwijderd mogen worden.
    Attached Files Attached Files
    Laatst aangepast door Stanley19 : 10 augustus 2018 om 12:43
    Vragen reproduceren vragen.

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Dus niet alle kopjes worden afgesloten met een dubbele punt?
    Begint wel alle tekst met een - teken? (Dus niet de kopjes)
    Laatst aangepast door edmoor : 10 augustus 2018 om 13:18
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Nieuw tabje aanmaken om te vergelijken met gewenst.
    Code:
    Sub hsv()
    Dim sv, i As Long, j As Long
    sv = Sheets("huidig").Cells(1).CurrentRegion.Resize(, 6)
     For i = 2 To UBound(sv)
       For j = 4 To 6
        sv(1, j) = Split(Split(sv(i, 3), String(2, vbLf))(j - 4), vbLf & "-")(0)
        sv(i, j) = Split(Split(sv(i, 3), String(2, vbLf))(j - 4), vbLf & "-")(1)
       Next j
       sv(i, 3) = ""
     Next i
     With Sheets(3)
       .Cells(1).Resize(UBound(sv), 6) = sv
       .Columns.AutoFit
     End With
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  6. #6
    Mega Senior Stanley19's avatar
    Geregistreerd
    8 januari 2002
    dank! Precies wat ik nodig had.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren