Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeilen in Zelle zählen

Zeilen in Zelle zählen
17.11.2015 16:07:15
Jens
Hallo,
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.

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in Zelle zählen
17.11.2015 16:22:57
Michael
Hi Jens,
an sich braucht es da gar kein VBA; wenn der zu untersuchende Text z.B. in E3 steht, wird er von der Formel ausgewertet:
=LÄNGE(E3)-LÄNGE(WECHSELN(E3;ZEICHEN(10);""))
Schöne Grüße,
Michael

AW: Zeilen in Zelle zählen
17.11.2015 17:20:51
Jens
Wenn ich es nach deiner Methode versuche, wird eine Zelle mit nur einer Zeile als 0 gezählt und nicht als 1.
Kann man die Formel dahingehend ändern?
Danke für die Mühe

Anzeige
AW: Zeilen in Zelle zählen
17.11.2015 17:33:51
Matthias
Hallo
Tabelle1

 EF
3Das
ist
ein
Text
4
4Da ist Text1

Formeln der Tabelle
ZelleFormel
F3=WENN(E3="";"";WENN(UND(E3<>"";LÄNGE(E3)-LÄNGE(WECHSELN(E3;ZEICHEN(10);""))=0;1);1;LÄNGE(E3)-LÄNGE(WECHSELN(E3;ZEICHEN(10);""))+1))
F4=WENN(E4="";"";WENN(UND(E4<>"";LÄNGE(E4)-LÄNGE(WECHSELN(E4;ZEICHEN(10);""))=0;1);1;LÄNGE(E4)-LÄNGE(WECHSELN(E4;ZEICHEN(10);""))+1))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Anzeige
oder so ...
17.11.2015 17:48:04
Matthias
Hallo
Tabelle1

 EF
2Das ist eine Zeile1
3Das sind
zwei Zeilen
2
4Das sind
drei
Zeilen
3
5Das
sind
vier
Zeilen
4

Formeln der Tabelle
ZelleFormel
F2=WENN(E2="";"";LÄNGE(E2)-LÄNGE(WECHSELN(E2;ZEICHEN(10);""))+1)
F3=WENN(E3="";"";LÄNGE(E3)-LÄNGE(WECHSELN(E3;ZEICHEN(10);""))+1)
F4=WENN(E4="";"";LÄNGE(E4)-LÄNGE(WECHSELN(E4;ZEICHEN(10);""))+1)
F5=WENN(E5="";"";LÄNGE(E5)-LÄNGE(WECHSELN(E5;ZEICHEN(10);""))+1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Anzeige
AW: oder so ...
17.11.2015 18:14:27
Jens
Jaaaa Super vielen Dank ! Ich verstehe die Formel zwar nicht.....aber es funktioniert alles.

AW: Erläuterung
17.11.2015 22:24:02
Over
Hallo Jens,
- es wird geprüft, ob gar kein Text in der Zelle steht (="")
keine Berechnung durchführen und wieder "" eintragen
- dann werden Zeilenumrüche (=Zeichen(10) durch "Nichts" ersetzt, also gelöscht
das erledigt die Funktion: WECHSELN(Text;Alter_Text;Neuer_Text;Ntes_Auftreten)
- nun wird von der ursprüngliche Textlänge (z.B. =Länge(E2)),
d.h. inkl. der Zeichen für den Zeilenumbruch
die Länge ohne diese Zeichen abgezogen
die Differenz ergibt die Anzahl der Zeilenumbrüche
- da bei einzeiligem Text kein Zeilenumbruch
bei zweizeiligem Text ein Zeilenumbruch usw. vorhanden sind,
muss, um auf die Zeilenanzahl zu kommen, "+1" addiert werden,
um von der Anzahl der Zeilenumrüche auf die Anzahl der Zeilen zu kommen
hoffe es hilft beim Verständnis.
Lg
Daniel Ov
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeilen in Zelle zählen


Schritt-für-Schritt-Anleitung

  1. Vorbereitungen: Stelle sicher, dass die zu zählenden Zeilen in einer Zelle stehen (z.B. in Zelle E3).

  2. Formel eingeben: Verwende die folgende Formel, um die Anzahl der Zeilen in einer Zelle zu zählen:

    =WENN(E3="";"";LÄNGE(E3)-LÄNGE(WECHSELN(E3;ZEICHEN(10);""))+1)

    Diese Formel zählt die Zeilen in der Zelle E3 und gibt das Ergebnis in der Zelle zurück, in der die Formel eingegeben wurde.

  3. Zelle nach unten ziehen: Wenn Du die Formel auf andere Zellen anwenden möchtest, ziehe das kleine Quadrat in der unteren rechten Ecke der Zelle nach unten, um die Formel auf die darunterliegenden Zellen anzuwenden.

  4. Leere Zellen: Die Formel gibt in leeren Zellen ein leeres Ergebnis zurück, was bedeutet, dass die Anzahl der Zeilen in leeren Zellen nicht gezählt wird.


Häufige Fehler und Lösungen

  • Fehler: Bei einer Zelle mit nur einer Zeile wird 0 angezeigt.

    • Lösung: Stelle sicher, dass Du die Formel so anpasst:
      =WENN(E3="";"";LÄNGE(E3)-LÄNGE(WECHSELN(E3;ZEICHEN(10);""))+1)

      Diese Formel sorgt dafür, dass auch eine Zeile als 1 gezählt wird.

  • Fehler: Die Formel funktioniert nicht und gibt einen Fehler aus.

    • Lösung: Überprüfe, ob die Zelle, die Du analysieren möchtest, tatsächlich Text enthält und keine anderen Datenformate wie Zahlen oder Fehler.

Alternative Methoden

  • VBA-Methode: Wenn Du VBA verwenden möchtest, kannst Du den folgenden Code verwenden, um die Anzahl der Zeilen in einer Zelle zu zählen und das Ergebnis in die Zelle links daneben zu schreiben:
    Sub ZeilenZaehlen()
      Dim Summe As Integer
      Dim i As Integer
      For i = 1 To Len(ActiveCell)
          If Mid(ActiveCell, i, 1) = Chr(10) Then Summe = Summe + 1
      Next
      ActiveCell.Offset(0, -1).Value = Summe + 1
    End Sub

    Diese Methode erfordert, dass Du den Code in ein VBA-Modul einfügst und das Makro ausführst.


Praktische Beispiele

Zelle Inhalt Ergebnis (Formel)
E3 Das
ist
ein
Test
4
E4 Da ist Text 1
E5 Das sind
zwei Zeilen
2
E6 0

Verwende die oben genannten Formeln, um die Anzahl der Zeilen basierend auf den Inhalten in den Zellen zu zählen.


Tipps für Profis

  • Um die Anzahl von Zeilen in markierten Zellen zu zählen, kannst Du die Formel in eine Matrixformel umwandeln und die SUMME-Funktion verwenden:

    =SUMME(WENN(E3:E10<>"";LÄNGE(E3:E10)-LÄNGE(WECHSELN(E3:E10;ZEICHEN(10);""))+1;0))

    Drücke Strg + Shift + Enter, um die Formel als Matrixformel einzugeben.

  • Nutze die Bedingte Formatierung, um die Zellen hervorzuheben, die eine bestimmte Anzahl von Zeilen überschreiten.


FAQ: Häufige Fragen

1. Wie kann ich die Anzahl der Zeilen in einer Zelle zählen, wenn ich VBA nicht verwenden möchte? Du kannst die oben genannte Formel verwenden, um die Anzahl der Zeilen in einer Zelle zu zählen, ohne VBA zu nutzen.

2. Was passiert, wenn meine Zelle keine Zeilenumbrüche hat? Die Formel gibt 1 zurück, wenn es nur eine Zeile gibt, und 0, wenn die Zelle leer ist.

3. Welche Excel-Version benötige ich für diese Funktionen? Die genannten Funktionen und Formeln sind in Excel 2010 und späteren Versionen verfügbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige