Jeg har fået denne løsning (venligst svar om du kan bruge den)
Hej
Leo Heuser (selvfølgelig) har lavet denne VBA løsning som
jeg har sendt til BGJ sammen med et eks.
Dim Varer As Variant
'leo.heuser@get2net.dk, marts 2001
Private Sub TextBox1_GotFocus()
Varer = Worksheets("navne").Range("a2:f500").Value
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
Dim TextInput As String
Dim LenTextInput As Long
Dim Counter As Long
Dim StartCell As Range
Set StartCell = ActiveSheet.Range("e1 ")
StartCell.EntireColumn.ClearContents
TextInput = TextBox1.Value
LenTextInput = Len(TextInput)
If (KeyCode <> 8 And KeyCode < 32) Or TextInput = "" Then Exit Sub
For Counter = LBound(Varer) To UBound(Varer)
If Left(UCase(Varer(Counter, 1)), LenTextInput) = UCase(TextInput)
Then
StartCell.Value = Varer(Counter, 1) & _
" " & Varer(Counter, 2) & _
" " & Varer(Counter, 6)
Set StartCell = StartCell.Offset(1, 0)
End If
Next Counter
Set StartCell = Nothing
End Sub
--
mvh
HC
"bgj" <bgj.news@kandu.dk> skrev i en meddelelse
news:X8Eq8.5575$567.385165@news000.worldonline.dk...
> Hej,
>
> Jeg har udarbejdet en skabelon i excel, hvor jeg laver en datavalidering
> på en liste. Listen er en kolonne med ca. 1000 adresser.
>
> Mit problem er bare at det er mange adresser at rulle ned igennem
> hvergang, så jeg søger en løsning hvor jeg kan begynde at skrive... og
> så bliver listen mindre og mindre.
>
> Dvs. hvis jeg skriver A - så vises kun de vejnavne med A og så
> fremdeles...
>
> Hvem kan hjælpe med det ?
>
> vh BGJ
>
> --
> Leveret af:
>
http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>