søgefunktion

bogstavsektion > er det overskrifter på kolonner eller der det arknavne

Det er overskrift i kolonne B

Public Sub FindOverskrift()
Dim L As Integer, Svar As String
Svar = InputBox("Søg efter", "Søgning")
L = Len(Svar)
For Each ws In Worksheets
If Left(Worksheets(ws.Name).Range("B1").Value, L) = Svar Then
Worksheets(ws.Name).Select
Range("B1").Select
Exit Sub
End If
Next
MsgBox " Ikke fundet"

End Sub

Hej Kabbak

uanset hvad jeg søger på "T", "D", eller andet . siger den at det ikke findes ?

Det er vel kun i B1 den skal søge og ikke i hele kolonnen. ?

Husk der er forskel på store og små bogstaver

Har deu " med i teksten på feltet, så skal du søge med "A

Jo, det er i hele kolonnen den skal søge.

Dataerne står ned af i kolone B, og ved hver bogstav skift er der en overskrift eks. "B"

Public Sub FindOverskrift()
Dim L As Integer, Svar As String
Svar = InputBox("Søg efter", "Søgning")
L = Len(Svar)
For Each ws In Worksheets
rw = Worksheets(ws.Name).Range("B65536").End(xlUp).Row
For I = 1 To rw
If Left(Worksheets(ws.Name).Range("B" & I).Value, L) = Svar Then
Worksheets(ws.Name).Select
Range("B" & I).Select
Exit Sub
End If
Next
Next
MsgBox " Ikke fundet"

End Sub

>kabbak

det fungerer bare. smider du et svar

et svar ;-))

tak for point