/ Forside / Teknologi / Administrative / MS-Office / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Excel 2000 - Datavalidering / Opslag
Fra : bgj


Dato : 03-04-02 15:20

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"


 
 
hcma (04-04-2002)
Kommentar
Fra : hcma


Dato : 04-04-02 16:52

FUT til dk.edb.regneark

--
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"
>



hcma (12-04-2002)
Kommentar
Fra : hcma


Dato : 12-04-02 11:54

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"
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408848
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste