Forumbeitrag
Excel-Version des Fragestellers:
2010
Erfahrungslevel des Fragestellers:
Excel-Profi - VBA gut
Hallo Gerd,
um VBA im Griff zu bekommen, muss man die Konzepte von Objekte und Eigenschaften von Objekt kennen.
Mit For c in Range(...) setzst Du in der Variable c einen Zeiger auf jede einzelne Zelle des gebebenen Bereichs. Also c hat den Typ Zelle (in VBA "Range" benannt).
Du willst aber den Inhalt von Zellen vergleichen.
Version 1: Inhalt von B1 in einer Variable aufnehmen und Inhalt vergleichen
Sub AufTrefffer_platzieren()
Dim such
Dim c As Range
With Worksheets("Tabelle1")
such = .Range("B1").Value
For Each c In .Range("B7:B72")
If c.Value = such Then
c.Activate
Exit For
End If
Next
End With
End Sub
Version 2, ohne Zwischenvariable:
Sub AufTrefffer_platzieren()
Dim c As Range
With Worksheets("Tabelle1")
For Each c In .Range("B7:B72")
If c.Value = .Range("B1").Value Then
c.Activate
Exit For
End If
Next
End With
End Sub
VG
Yal