Avatar billede ladelund Juniormester
17. april 2012 - 14:26 Der er 2 kommentarer og
1 løsning

Find en tekst i en tekststreng

Hej Eksperter

Jeg har et lille problem med at få min kode tilat finde en tekst i en tekststreng.
Koden ser således ud:

Sub Teskt()

Range("K1").Select
Dim Tekst, TekstLK
Tekst = ""
TekstLK = ""
Do Until Len(ActiveCell.Text) = 0
     
    If ActiveCell.Text = "Skjern Bank" Then
        TekstLK = "Skjern Bank"
   
    ElseIf ActiveCell.Text = "Kiwi" Then
        TekstLK = "Kiwi"
   
    Else
        TekstLK = "Ved ikke"
   
    End If
   
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = TekstLK
    ActiveCell.Offset(0, -1).Select
    ActiveCell.Offset(1, 0).Select
Loop

End Sub

Nu vil jeg gerne have den til at finde f.eks. "Skjern Bank" selv om der står "123 Skjern Bank" i cellen. Med andre ord: Find teksten i tekststrengen.

Kan nogen hjælpe?
Avatar billede supertekst Ekspert
17. april 2012 - 14:35 #1
Prøv at ændre til:

If InStr(ActiveCell.Text, "Skjern Bank") > 0 Then
Avatar billede ladelund Juniormester
17. april 2012 - 14:45 #2
Tusind tak supertekst

Det var lige det der skulle til :-)
Avatar billede supertekst Ekspert
17. april 2012 - 14:48 #3
Selv tak - det var så lidt..
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
Kurser inden for grundlæggende programmering

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