Schleife falsch
02.02.2021 11:12:41
doliwsef
Sub Zaehlen()
Dim rng As Range
Dim a As String
Dim b As String
Dim cell As Range
Dim LR As Long
With Sheets("SaP500")
LR = .Range("O" & Rows.Count).End(xlUp).Row
For Each cell In Sheets("SaP500").Range("L1:L900" & LR)
If cell.Value "" Then
If rng Is Nothing Then
Set rng = cell
Else
Set rng = Union(rng, cell)
End If
End If
Next cell
a = Cells(ActiveCell.Row, 1).Value
b = Cells(ActiveCell.Row + 1, 1).Value
MsgBox "Entered value is " & a & b
End With
End Sub
Irgendwie funktioniert sie und irgendwie nicht. Gewünscht ist, daß bei einem Zellwert "1" in der Spalte "L"die Variablen a und b gesetzt werden und später woanders reingeschrieben. Jedoch nimmt er den Zellwert "1", wenn die Zellen hervorgehoben werden sollen, aber mit der Zuordnung der Variablen habe ich Krautsalat. Weiß jemand warum?
Anzeige