https://www.herber.de/bbs/user/94058.xlsx
Anbei eine Beispieldatei.
Sub Makrotest()
'Anzahl der Positionen
Cells(Application.WorksheetFunction.Max(Cells(65536, 2).End(xlUp).Row + 2, 1), 1).Formula = _
"=ROW() & "" Positionen """
Dim Zelle As Range
Set Zelle = Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)
Zelle.Value = "Gesamtwert:"
Zelle.Font.Bold = True
End Sub
Mit diesem Code ermittel ich die rotmarkierten Werte.Ich möchte allerdings nicht, dass er 65 Positionen angibt, sondern 54, quasi die Anzahl der Zeilen bis zur ersten Leerzeile in Spalte B.
Die Zeilen können variieren, die Lage von "Positionen" und "Gesamtwert" ist allerdings schon richtig, mir fehlt lediglich nur noch die richtige Zeilenangabe..
Freue mich über jede Hilfe!
MFG
Karin