Wie kann ich per VBA in einer Spalte zB B die erste Zelle selektieren die einen Wert kleiner 1 enthält? Oder die erste Zelle in der die darin enthaltene Formel "" ausgibt?
Dim i As Integer
For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(i, "B").Value 1 Then
Cells(i, "B").Select
Exit For
End If
Next i
Diese Schleife verwendet die Cells-Methode, um jede Zelle in Spalte B zu überprüfen, und die End-Methode, um die letzte belegte Zelle in Spalte B zu finden. Es überprüft dann jede Zelle von Zeile 1 bis zur letzten belegten Zelle auf einen Wert kleiner 1, und wenn es eine solche Zelle findet, wird sie ausgewählt und die Schleife verlassen.
Sub SelectFirstCellBelow1()
Dim cell As Range
For Each cell In Range("B:B")
If cell.Value 1 Then
cell.Select
Exit For
End If
Next cell
End Sub
Ist zwar im Prinzip das selbe, aber hast du deinen Code noch angepasst?
Sub SelectFirstCellLessThanOne()
Dim cell As Range
For Each cell In Range("B1:B100")
If cell.Value 1 Then
cell.Select
Exit For
End If
Next cell
End Sub
dann im Chat eingegeben "gib mir eine andere Variante" und folgendes erhalten:
Dim cell As Range
For Each cell In Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
If cell.Value 1 Then
cell.Select
Exit For
End If
Next cell
Eigentlich meine ich, ich hätte sogar mal einen Button gesehen, um Antworten erneut zu generieren. Aber den finde ich jetzt nicht mehr. ;)
Sub Unit()
Dim C As Range
For Each C In Columns("B").Cells
If C.Value 1 Or C.Value = "" Then
C.Select
Exit For
End If
Next
End Sub
Gruß Gerd