tjek om arknavn indeholder "...."

Hej Mathias

Prøv følgende procedure:

Sub SøgIArknavn()
Dim arknavn As String

'sæt arknavn = navnet på det aktive sheet
arknavn = ActiveSheet.Name

'søg arknavn for strengen "dag" - start ved det 1. tegn
  If InStr(1, arknavn, "dag", vbTextCompare) Then
 
    MsgBox "Ja"
   
  Else
   
    MsgBox "nej"

  End If


End Sub


Med venlig hilsen, Nicolai

Hej Mathias

Tilføjelser:
Ovenstående InStr(1, arknavn, "dag", vbTextCompare)søger efter "dag" i variablen arknavn uafhængig af store og små bogstaver.

Ønsker du søgning på enten store eller små bogstaver ?, så ta´ evt. et kig på følgende:
http://www.automateexcel.com/2004/08/14/excel_vba_find_text_in_a_string_instr/


Du kan også få startplaceringen af "dag" i arknavn ?
Hvis "dag" findes i arknavn, så returnerer InStr værdien for startplaceringen af "dag" i arknavn ... hvis "dag" ikke findes i arknavn returnerer InStr værdien 0

Prøv:
'vis startplacering for ordet "dag"
MsgBox InStr(1, arknavn, "dag", vbTextCompare)



Med venlig hilsen, Nicolai

Hej Mathias - denne makro bruger en "for next" så der søges på alle placeringer i sheetname.

Sub testsheetname()

Dim chk As String
Dim testtext As String
testtext = "dag"
chk = "Nej"

For x = 1 To Len(ActiveSheet.Name)
If InStr(x, ActiveSheet.Name, testtext) > 0 Then chk = "Ja"
Next

MsgBox chk



End Sub

Rettelse:
Nicolai har fat i den lange ende - den bør vel også checke for teksten hvis der er brugt store bogstaver. Det gør denne tilrettede version.

mvh Kurt


Sub testsheetname()

Dim chk As String
Dim testtext As String
testtext = "dag"
chk = "Nej"

For x = 1 To Len(ActiveSheet.Name)
If InStr(x, ActiveSheet.Name, testtext, vbTextCompare) > 0 Then chk = "Ja"
Next

MsgBox chk

End Sub

#3
Hvorfor bruge en for-next løkke ?
Kigger InStr ikke på alle tegn i den ønskede tekststreng ?

Med venlig hilsen, Nicolai

ad #4
Du har ret det var en tanketorsk
- følgende kan gøre det:-)

Sub testsheetname()

Dim chk As String
Dim testtext As String
testtext = "dag"
chk = "Nej"

If InStr(1, ActiveSheet.Name, testtext, vbTextCompare) > 0 Then chk = "Ja"

MsgBox chk

End Sub

tak skal i have.
Vil I dele pointene?

Hej Mathias

Det er op til dig ... Hvilken løsning har du valgt ??

Med venlig hilsen, Nicolai

Løsningerne er så at sige ens, og du var først..

Smid da et svar :-)

Hej Mathias

Skal jeg være ærlig ... så må det også være således!
Hermed et svar.

Og tak for det :o)

Med venlig hilsen, Nicolai