Achtergrondtekst (informatie) invullen in cel

[Amazon62]

Hallo,

Mijn eerste post hier, dus aangenaam kennis te maken!

Een vraagje.
Ik heb een excel formulier waar mensen waarden moeten invullen in bepaalde cellen. Nu wil ik eigenlijk in die cel een tekst hebben staan wat ze moeten invullen.
Een voorbeeld: ....vul lengte in..... En als men dan op de cel klikt, dan moet de tekst verdwijnen. Net als je vaak ziet in een zoekbalk op een website (zie deze website bv.).

Probleem met gewoon een tekst invullen in bv lichtgrijs is, dat er formules aan de cel gekoppeld zitten. Als je dan een tekst erin zet, dan is de formule corrupt.

Weet iemand een oplossing hiervoor?

Alvast bedankt.

Met vriendelijke groet,

Maarten

 

[gast0660]

Zoiets? Zie de gele cel in vbtje
Cel eigenschappen -> opmerking invoegen
Edit:welkom op Help mij

 

[gast0660]

Tweede mogelijkheid, via gegevensvalidatie -> Invoerbericht
Zie oranje cel

 

[Amazon62]

Tweede mogelijkheid, via gegevensvalidatie -> Invoerbericht
Zie oranje cel

Beste Philiep,

Bedankt voor je reactie, maar beide oplossingen zijn mij al wel bekend. Ik wil echt een tekst in de cel hebben, net als de zoekfunctie balk op deze site (zie rechtsboven).

 

[gast0660]

Heb je een vb bestandje, kwestie van een zicht te hebben op uw opmerking betreffende de formules.

 

[Amazon62]

Heb je een vb bestandje, kwestie van een zicht te hebben op uw opmerking betreffende de formules.

Ik ga nu weekend vieren, dus ik kom hier maandag weer terug. Fijn weekend!

 

[Peter B]

Een voorbeeldbestandje is geen plaatje ...

 

[Peter B]

Ik heb toch even zitten klussen en ik kom op het volgende. Het kan vast slimmer, maar m.i. werkt dit. Ik ben ervan uitgegaan dat de gele velden in het plaatje overeenkomen met cellen in kolom F en dat de eerste cel F2 is. Anders dit even aanpassen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rij As Long

If Not Intersect(Target, Range("F2:F20")) Is Nothing Then
    rij = Target.Row
    If rij = 2 Or rij = 4 Or rij = 6 Or rij = 7 Or rij = 19 Or rij = 20 Then
        If Target.Value = "" Then
            With Target
                Select Case rij
                    Case 2
                        .Value = "… Dit is een voorbeeldtekst voor rij 2 …"
                    Case 4
                        .Value = "… Dit is een voorbeeldtekst voor rij 4 …"
                    Case 6
                        .Value = "… Dit is een voorbeeldtekst voor rij 6 …"
                    Case 7
                        .Value = "… Dit is een voorbeeldtekst voor rij 7 …"
                    Case 19
                        .Value = "… Dit is een voorbeeldtekst voor rij 19 …"
                    Case 20
                        .Value = "… Dit is een voorbeeldtekst voor rij 20 …"
                End Select
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 65535
                End With
            End With
        Else
            With Target.Interior
                .Pattern = xlNone
            End With
        End If
    End If
End If

End Sub

 

[Peter B]

Nog een andere (slimmere) oplossing is dat je gebruik maakt van voorbeeldteksten in een andere kolom. Ik heb voor het voorbeeld kolom J gebruikt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rij As Long

If Not Intersect(Target, Range("F2:F20")) Is Nothing Then
    rij = Target.Row
    If rij = 2 Or rij = 4 Or rij = 6 Or rij = 7 Or rij = 19 Or rij = 20 Then
        If Target.Value = "" Then
            With Target
                .Value = Cells(Target.Row, "J").Value
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 65535
                End With
            End With
        Else
            With Target.Interior
                .Pattern = xlNone
            End With
        End If
    End If
End If

End Sub

 

[gast0660]

Ik zou dan eerder denken op een userform
Voorzetje

 

[Amazon62]

Goedemorgen,

Bedankt voor het meedenken! Sorry dat ik een screenshot stuurde, maar ik kan niet zomaar bestanden van het werk openbaar delen met anderen.
Zoals Philiep stuurde zoek ik inderdaad! Wellicht is dat van Peter B. ook goed, maar ik ben niet helemaal thuis in macro's dus dat moet ik even uitzoeken.

Die van Philiep is ook wel een Macro, maar ik kan m wel meteen zo testen...

 

[Amazon62]

Opgelost!

Hoi,

Het is gelukt hoor. Met de laatste macro van Peter B.
Hartelijk dank!

 

[Peter B]

Top. Dan mag je de vraag sluiten/ als opgelost markeren