AW: Anzahl der Iterationen nach Spalte festlegen
03.07.2019 21:59:35
Regina
Hi,
vielleicht geht es einfacher, aber so sollte es passen:
Public Sub zeile()
Dim rng As Range
Dim i As Long
Dim lng_pos1 As Long
Dim laenge As Long
Dim lng_pos2 As Long
Set rng = ActiveSheet.UsedRange
lng_pos1 = InStr(1, rng.Address, ":") + 2
lng_pos2 = InStr(lng_pos1, rng.Address, "$")
laenge = Len(rng.Address)
i = Right(rng.Address, Len(rng.Address) - lng_pos2)
MsgBox i
End Sub
ich habe hier ein paar Zwischenschritte eingebaut, um das Prinzip klar zu machen, die könnte man auch in die gesamt Berechnung einbauen.
Gruß
Regina