Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSøg og vælg
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
finn.lauridsen Se dropdown
Bronze bruger
Bronze bruger


Medlem: 18.Mar.2012
Land: Danmark
Status: Offline
Point: 29 		Direkte link til dette indlæg Emne: Søg og vælg
    Sendt: 25.Mar.2012 kl. 12:12
Kan man i excel søge og få vist en bestemt tekst, når man søger i kommentarer
således at kommentaren åbner sig når den er fundet
Til top



Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 25.Mar.2012 kl. 17:45
prøv:
Sub FindKommentar()
hvad = Application.InputBox("", "Find hvad")
Selection.SpecialCells(xlCellTypeComments).Select
For Each c In Selection
If c.Comment.Text Like "*" & hvad & "*" Then c.Comment.Visible = True
Next
End Sub
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694 		Direkte link til dette indlæg Sendt: 25.Mar.2012 kl. 18:56
Eller

Sub d_test()
' skjuler allerede synlige kommentar
For i = 1 To ActiveSheet.Comments.Count
    ActiveSheet.Comments(i).Visible = False
Next

' vis kommentar som indeholder søge tekst
b = InputBox("Skriv den tekst som skal søges", "Søg i kommentar")
For i = 1 To ActiveSheet.Comments.Count
    a = ActiveSheet.Comments(i).Text
    If InStr(UCase(a), UCase(b)) > 0 Then
        ActiveSheet.Comments(i).Visible = True
    End If
Next

End Sub
VH rassten

Arbejde excel 2010
Privat excel 2010
Til top
finn.lauridsen Se dropdown
Bronze bruger
Bronze bruger


Medlem: 18.Mar.2012
Land: Danmark
Status: Offline
Point: 29 		Direkte link til dette indlæg Sendt: 25.Mar.2012 kl. 19:01
Jeg koblede makroen til en knap , den finder fint de kommentarer jeg søger og åbner dem
men nu kan jeg ikke komme ud af det igen, hvis jeg lader søgeteksten forblive blank , så åbner den bare alle kommentarer
Det var jo ikke meningen, hvad gør jeg ??
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694 		Direkte link til dette indlæg Sendt: 25.Mar.2012 kl. 19:11 

b = InputBox("Skriv den tekst som skal søges", "Søg i kommentar")
       If b = "" Then Exit Sub
For i = 1 To ActiveSheet.Comments.Count


Nu vil jeg ikke rigtig blande mig i Excelents kode, men det er nok samme metode
VH rassten

Arbejde excel 2010
Privat excel 2010
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 25.Mar.2012 kl. 19:43
yep If hvad = "" Then Exit Sub
 
Det skyldes jo nok at hverken rassten eller jeg havde fantasi til at tro at nogen ville søge efter ingenting Wink
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2025 Dansk Regneark Forum - en del af Excel-regneark.dk