Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
200to204
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
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro: Gefunde Zeile Makieren + Zeile drüber

Makro: Gefunde Zeile Makieren + Zeile drüber
09.01.2003 12:13:02
Sebastian. h.
Ich habe hier ein Makro zusammengestellt welches alle Zeilen Makiert die mit den eingegeben daten übereinstimmen! Meine frage ist nun, wie kann ich es hinkriegen das er die Zeile über den gefundenen daten auch makiert??? Würd mich freun wenn mir jemand weiter helfen kann!

MFG.
Sebastian

Private Sub OK_Click()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
Suchbegriff = Array(Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8, Text9)
For t = 0 To UBound(Suchbegriff)
sSearch = Suchbegriff(t)
Set rngFind = Cells.Find(Suchbegriff(t), LookAt:=xlPart)
If rngRows Is Nothing Then

Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
Next
rngRows.Select

End Sub

Code eingefügt mit:

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro: Gefunde Zeile Makieren + Zeile drüber
09.01.2003 14:02:25
Heinz A. Wankmüller
Hallo Sebastian,
z.B. so:

            Do
                Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
                Set rngRows = Application.Union(rngRows, Rows(rngFind.Row - 1))
                Set rngFind = Cells.FindNext(After:=rngFind)
            Loop Until rngFind.Address = sFind 
     Code eingefügt mit Syntaxhighlighter 1.16

Gruß
Heinz




Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige