• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

waarden met koptitels uit cel als aparte kolommen tonen

Status
Niet open voor verdere reacties.

Stanley19

Terugkerende gebruiker
Lid geworden
8 jan 2002
Berichten
2.258
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 bewerkt:
Plaats een voorbeeld document.
 
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.
 

Bijlagen

  • voorbeeld.xlsx
    9,4 KB · Weergaven: 43
Laatst bewerkt:
Dus niet alle kopjes worden afgesloten met een dubbele punt?
Begint wel alle tekst met een - teken? (Dus niet de kopjes)
 
Laatst bewerkt:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan