Thema Datum  Von Nutzer Rating
Antwort
14.07.2009 13:38:17 Sebastian
NotSolved
14.07.2009 15:53:53 Murdoc
NotSolved
15.07.2009 08:49:55 Florian
NotSolved
Blau Aw:Aw:Schließen einer zuvor geöffneten Seite
 15.07.2009 15:12:29 Murdoc
NotSolved

Ansicht des Beitrags:
Von:
Murdoc		 Datum:
15.07.2009 15:12:29		 Views:
1083		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Schließen einer zuvor geöffneten Seite
Hallo,

angenommen der zu durchsuchende Bereich sei A1 bis A500 und das Suchkriterium sei Test.

Sub Find_Sth()
Dim c As Range
Dim firstAddress As String

With Worksheets(1).Range("a1:a500")
Set c = .Find("Test", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'c.Value = 5
MsgBox c.Address
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.07.2009 13:38:17 Sebastian
NotSolved
14.07.2009 15:53:53 Murdoc
NotSolved
15.07.2009 08:49:55 Florian
NotSolved
Blau Aw:Aw:Schließen einer zuvor geöffneten Seite
 15.07.2009 15:12:29 Murdoc
NotSolved