Makro VBA Excel Zeile markieren wenn in Spalte zahl x steht?

Hallo ,

Ist es möglich mit Hilfe eines Makros eine Zeile zu markieren, wenn in spalte A eine bestimmte zahl steht.

Z.b, Markiere Zeile wenn in spalte A die zahl 8 steht.

Vielen Dank !

Answer 1

[Suboptimierer]

for i = 1 to 9999 
  if Range("A"&i).Value = 8 then 
    Range("A"&i).Select
    Exit for
  end if
next

Answer 2

[daCypher]

Ja, ist möglich. Ich würde es aber einfach mit einer bedingten Formatierung machen.

Einfach alle Zellen markieren, in denen du suchen willst, dann im Menü Bedingte Formatierung > Regeln zum hervorheben von Zellen > Gleich...

und da gibst du halt die 8 ein, oder wonach du suchen willst

Comments

[CncStep]

Vielen Dank ,

aber das ist leider nicht das was ich suche .

bzw mit Markieren meinte ich auswählen .

Ich benötige sowas wie

Sub FindValue()

'specify range to look in

Set rng = ActiveSheet.Columns("A:A")

'specify string to look for

findString = "8"

Select Zeile mit wert ="8"

hat noch jemand eine Idee ?

[daCypher]

@CncStep

Ok, ich kann mir zwar keinen sinnvollen Grund denken, warum man das tun sollte, aber wenn es unbedingt ein VBA-Makro sein soll, dann hier:

Sub Alle_Achten_in_A()
    Dim Selection As Range
    Dim Zelle As Variant
    
    For Each Zelle In Intersect(ActiveSheet.Range("A:A"), ActiveSheet.UsedRange)
        If Zelle.Value = 8 Then
            If Selection Is Nothing Then
                Set Selection = Zelle
            Else
                Set Selection = Union(Selection, Zelle)
            End If
        End If
    Next Zelle
    
    Selection.Select
End Sub

Alternativ könntest du z.B. auch die Daten filtern und per Hand markieren.