03. november 2006 - 13:38Der er
9 kommentarer og 1 løsning
Finde sidste tegn i celle
hi
har en tekst i en celle fx:
profil oprettet fra kladde til ny 15:00 profil oprettet fra ny til åben 16:55 Profil er sendt til godkendelse hos KSV profil er sendt oprettelse hos FJK
En anden celle kunne være
profil oprettet fra ny til åben 16:55 Profil er sendt til godkendelse hos KSV
Jeg skal kun bruge linierne med Sendt, men jeg kan ikke helt finde ud af hvordan jeg finder den..
jeg kunne bruge en b1: Find(":";celle;1) og så bruge en Find(":";celle;1+b1)
men problemet er så, hvordan finder jeg den sidste : , nu når Eksempel 2 ikke har to :'er
Eller er der en anden måde at isolere de linier med teksten "profilen er sendt"??
Hvad med et autofilter? Stil dig i den øverste celle i den kolonne, der indeholder dine tekster, og vælg Data > Autofilter. Når du klikke på den knap med en trekant, der nu fremkommer, kan du vælge Bruger.... I det venstre panel i dialogboksen vælger du "Indeholder" og i det højre skriver du "Profilen er sendt". Så skulle du kun få vist de rækker, der opfylder dette kriterium.
jeg har et excelark som henter data fra en forespørgsel i access -> det data bruges til at lave links imod et system (html) - og i vba laves der en html fil som man kan åbne b bagefter.
bak der er point.. jeg havde bare formuleret spørgsmålet forkert..
for det er ikke altid at der står profil sendt, der kan også stå kontaktperson sendt, eller noget helt tredje.. (men, jeg kan jo nok lave en fINd på mellemrum?)
du kunne prøve om denne hjemmebyggede function virker for dig Den skal indsættes i et alm. macro-modul og bruges således
=myfind(A2; "sendt")
Den finder så de sætninger i A2 der indeholder ordet sendt. Sætninger er forudsat delt med LineFeed, men prøv :-)
Function MyFind(Celle As Range, FindHvad) As String Dim temp As Variant Dim temp1 As String Dim x As Long temp = Split(Celle, vbLf) For x = LBound(temp) To UBound(temp) If InStr(temp(x), FindHvad) Then temp1 = temp1 & vbLf & temp(x) End If Next MyFind = temp1 End Function
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.
