Cellen in kolom leeg maken

[Dennis20127]

Nieuw hier, zit met aantal excel vragen. Waarvan hier 1
Ben al een uurtje aan het googelen. Lukt niet helaas.
Ik wil uit een kolom alleen de cellen copy welke met hoofdletters zijn geschreven.
Kolem D rij 2 is verdeeld in cellen met kleine letters en hoofdletters.
Nu wil ik een kolom met alleen de cellen met hoofdletters uit kolom D.
Ik heb dus kolom E ingevoegd en geprobeerd met formule in E2: =ALS(D2"KLEINE.LETTERS";"";D2)
U begrijpt, dit werkt niet! helaas. Iemand?

 

[Victorr99]

Dat is een goeie, de formule zou ik niet weten.
Je kan wel een function in vba maken die dat controleert.
Als niemand je antwoord hierop kan geven kun je altijd nog de onderstaande code in een module zetten.

Function EERSTEHOOFDLETTER(rng As Range)
Dim Cell As Range
For Each Cell In rng
    Select Case Left(Cell.Value, 1)
        Case Is = "A"
            EERSTEHOOFDLETTER = True
        Case Is = "B"
            EERSTEHOOFDLETTER = True
        Case Is = "C"
            EERSTEHOOFDLETTER = True
        Case Is = "D"
            EERSTEHOOFDLETTER = True
        Case Is = "E"
            EERSTEHOOFDLETTER = True
        Case Is = "F"
            EERSTEHOOFDLETTER = True
        Case Is = "G"
            EERSTEHOOFDLETTER = True
        Case Is = "H"
            EERSTEHOOFDLETTER = True
        Case Is = "I"
            EERSTEHOOFDLETTER = True
        Case Is = "J"
            EERSTEHOOFDLETTER = True
        Case Is = "K"
            EERSTEHOOFDLETTER = True
        Case Is = "L"
            EERSTEHOOFDLETTER = True
        Case Is = "M"
            EERSTEHOOFDLETTER = True
        Case Is = "N"
            EERSTEHOOFDLETTER = True
        Case Is = "O"
            EERSTEHOOFDLETTER = True
        Case Is = "P"
            EERSTEHOOFDLETTER = True
        Case Is = "Q"
            EERSTEHOOFDLETTER = True
        Case Is = "R"
            EERSTEHOOFDLETTER = True
        Case Is = "S"
            EERSTEHOOFDLETTER = True
        Case Is = "T"
            EERSTEHOOFDLETTER = True
        Case Is = "U"
            EERSTEHOOFDLETTER = True
        Case Is = "V"
            EERSTEHOOFDLETTER = True
        Case Is = "W"
            EERSTEHOOFDLETTER = True
        Case Is = "X"
            EERSTEHOOFDLETTER = True
        Case Is = "Y"
            EERSTEHOOFDLETTER = True
        Case Is = "Z"
            EERSTEHOOFDLETTER = True
        Case Else
            EERSTEHOOFDLETTER = False
    End Select
Next Cell
End Function

Als je niet weet hoe je dit moet doen, dan leg ik je het wel uit.

 

[Timshel]

Misschien kun je iets met de functie GELIJK. Die vergelijkt hoofdlettergevoelig:

=ALS(GELIJK(D2;HOOFDLETTERS(D2));D2;"")

@Victor99: Wel eens gehoord van ASCII-codes?

 

[Dennis20127]

Yessss.... dank is groot!!

@Victor99 dank voor je antwoord
@Timshel: deze zocht ik

 

[Victorr99]

Dennis20127, Veel succes ermee!!
@Timshel: ik weet wat het is maar gebruik het nooit, komt mede er door dat ik niet heel ervaren ben in vba