Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Find methode herbers beispiel

Find methode herbers beispiel
30.12.2005 18:17:04
roland_k
hi zusammen
habe aus herbers beispiele folgenden beispielcode:
***Dieses Beispiel findet alle Zellen im Bereich "A1:A500" des ersten Tabellenblatts, die den Wert 2 enthalten. Anschließend werden diese Zellen grau formatiert.*****
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
als erstes sagt debugger variabel nicht definiert
ich habe diese dan dim c as string gegeben
dann moniert der debugger c .......objekt erforderlich
kann mir da jemand erläutern was da nicht richtig läuft
den code haber ich einem schaltbutton zugewiesen
danke im voraus roland_k

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Find methode herbers beispiel
30.12.2005 18:21:01
Josef
Hallo Roland!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub tt()
Dim rngFind As Range
Dim strFirst As String

With Worksheets(1).Range("a1:a500")
  
  Set rngFind = .Find(2, LookIn:=xlValues)
  If Not rngFind Is Nothing Then
    strFirst = rngFind.Address
    Do
      rngFind.Interior.Pattern = xlPatternGray50
      Set rngFind = .FindNext(rngFind)
    Loop While Not rngFind Is Nothing And rngFind.Address <> strFirst
  End If
End With

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige