Ich möchte in verschiedenen Zellen die Zeilen zählen. Das Ergebnis sollte dann in der Zelle links neben der zu zählenden Zelle erscheinen.In einer Leeren Zelle soll 0 gezählt oder gar nicht erst gezählt werden.
Habe das hier gefunden:
VBA-Code: Sub ZeilenZaehlen() Dim i As Integer Dim Summe As Integer For i = 1 To Len(ActiveCell) If Mid(ActiveCell, i, 1) = Chr(10) Then _ Summe = Summe + 1 Next MsgBox Summe + 1 End Sub
Das funktioniert soweit...nur möchte ich das Ergebnis nicht in einer Box sehen die ich mit Ok bestätige muss.
Mir wäre am liebsten wenn das Ergebnis immer links neben der Aktiven oder ausgewählten Zelle eingetragen wird.
Würde mich freuen wenn mir jemand helfen könnte.