Avatar billede Jan Hansen Ekspert
12. september 2017 - 06:53 Der er 5 kommentarer

Opslag i Textbox/ Forslag til indhold i Textbox

Hej Derude

Kan man få en TextBox til løbende under indtastning at foreslå tekst ved opslag i en kolonne på et ark? Altså taster jeg "K" og den får en dropdown felt der står Karl,Kim og Kurt under hindanden som jeg kan vælge eller taste videre "Ku" nu står det kun Kurt.

Det er lidt som google's søgefelt.

Jan
Avatar billede finb Ekspert
12. september 2017 - 08:42 #1
Uden textBox foreslår Excel selv allerede brugte ord.
Men du skal nok have fat i vba / AutoComplete.
Avatar billede Jan Hansen Ekspert
12. september 2017 - 09:46 #2
finb, ja men ikke i en userform ;-)

Håber bare en siger, TextBox1.?= Application.WorkSheetFunction,lookup(TextBox1.value,Område,1)
Avatar billede finb Ekspert
12. september 2017 - 09:57 #3
Har ikke lige forslag,
dette smager lidt:
https://www.computerworld.dk/eksperten/spm/1018865
Avatar billede jens48 Ekspert
12. september 2017 - 10:15 #4
Måske kan dette inspirere. Det er en makro, jeg bruger til at rette i 3 forskellige tekstboxe, når der skrives i celle E1. Den henter hele teksten fra bestemte celler. Så fidusen må være at få disse celler til at indeholde det du ønsker at vise.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E1")) Is Nothing Then
        Dim x As String
        Dim y As String
        Dim z As String
        x = Cells(1, 6)
        y = Cells(2, 6)
        z = Cells(3, 6)
        ActiveSheet.Shapes.Range(Array("Text Box 19")).Select
        Application.CutCopyMode = False
        Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = x
        ActiveSheet.Shapes.Range(Array("Text Box 21")).Select
        Application.CutCopyMode = False
        Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = y
        ActiveSheet.Shapes.Range(Array("Text Box 23")).Select
        Application.CutCopyMode = False
        Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = z
        Range("E1").Select
    End If
End Sub
Avatar billede Jan Hansen Ekspert
12. september 2017 - 10:24 #5
#4 det kan jeg fint finde ud af, lurede bare på om man kan lave en form for ListBox der forandre sig men man skriver så den giver foreslag til text undervejs, Måske er man tvunget over i en ComboBox for at få det jeg ønsker, vil bare gerne undgå den.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester