Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Anzahl Zeilen (Line) in Zelle ermitteln

Anzahl Zeilen (Line) in Zelle ermitteln
Jockel
Hallo,
gibt es in Excel (VBA o. Funktion) eine Methode, die Anzahl der Zeilen (lines), die es in einer Zelle an Text gibt, zu zählen ?
Habe dazu was im Internet gefunden, das funktioniert aber nicht richtig:
AnzahlZeilen = Range("A2").End(xlDown).Row
Also, ich brauche als Ergebnis nur eine Zahl, wieviel Zeilen Text eine Zelle beinhaltet. Es sollen aber nur die gezählt werden, so wie ich es tatsächlich sehe. Wenn man z.B. die Breite der Spalte verändert, soll sich auch die Zeilen-Anzahl entsprechend anpassen.
Hoffe, sowas gibts.
Danke mal
Jockel
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Anzahl Zeilen (Line) in Zelle ermitteln
06.07.2011 11:58:44
Rudi
Hallo,
das kannst du nur feststellen, wenn du den Text mit Alt+Enter umbrichst.
Gruß
Rudi
AW: Anzahl Zeilen (Line) in Zelle ermitteln
06.07.2011 12:09:17
Jockel
Hi Rudi
also, wenn der Text durch Excel Automatisch umgebrochen wird, geht das nicht ?
Ich habe in meinen Zellen vermutlich immer beides drin.
OK, schon verloren.
Ich habe zellen mit mehr als 1024 Zeichen. nach 1024 Zeichen scheint excel keinen Umbruch mehr zu machen, sondern lässt den Text einfach rechts aus der Zelle laufen.
Wollte anhand der Zeilen-Anzahl die nötige Höhe der Zelle berechnen, ist jetzt wohl aber hinfällig.
Trotzdem Danke
Jockel
Anzeige
eine Idee
07.07.2011 14:25:33
Rudi
Hallo,
teste mal:
Sub test()
Dim i As Integer
Application.ScreenUpdating = False
i = 0
getLineCount Range("B4"), i
MsgBox i
End Sub

Sub getLineCount(rng As Range, iLines As Integer)
Dim Z As Integer, wksTmp As Worksheet
Set wksTmp = Worksheets.Add
With wksTmp
rng.Copy .Cells(1, 1)
rng.Copy .Cells(2, 1)
.Cells(2, 1).WrapText = False
.Columns(1).ColumnWidth = rng.ColumnWidth
.Rows.AutoFit
iLines = .Rows(1).RowHeight / .Rows(2).RowHeight
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End Sub

Gruß
Rudi
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Anzahl der Zeilen in einer Excel-Zelle ermitteln


Schritt-für-Schritt-Anleitung

Um die Anzahl der Zeilen in einer Zelle zu ermitteln, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code und füge ihn in das Modul ein:

    Sub test()
       Dim i As Integer
       Application.ScreenUpdating = False
       i = 0
       getLineCount Range("B4"), i
       MsgBox i
    End Sub
    
    Sub getLineCount(rng As Range, iLines As Integer)
       Dim Z As Integer, wksTmp As Worksheet
       Set wksTmp = Worksheets.Add
       With wksTmp
           rng.Copy .Cells(1, 1)
           rng.Copy .Cells(2, 1)
           .Cells(2, 1).WrapText = False
           .Columns(1).ColumnWidth = rng.ColumnWidth
           .Rows.AutoFit
           iLines = .Rows(1).RowHeight / .Rows(2).RowHeight
           Application.DisplayAlerts = False
           .Delete
           Application.DisplayAlerts = True
       End With
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro test aus, um die Anzahl der Zeilen in der Zelle B4 zu ermitteln.

Diese Methode funktioniert nur, wenn der Text mit ALT + ENTER umgebrochen wurde. Andernfalls zählt Excel die Zeilen nicht korrekt.


Häufige Fehler und Lösungen

  • Fehler: Das Makro gibt eine falsche Zeilenanzahl zurück.

    • Lösung: Stelle sicher, dass der Text in der Zelle mit ALT + ENTER umgebrochen wurde. Wenn der Text automatisch umbrochen wird, könnte die Zählung fehlerhaft sein.
  • Fehler: Der VBA-Code funktioniert nicht.

    • Lösung: Überprüfe, ob Du die richtigen Berechtigungen hast, um Makros in Excel auszuführen. Stelle sicher, dass die Makros aktiviert sind.

Alternative Methoden

Falls Du keine VBA-Lösung verwenden möchtest, kannst Du auch die Funktion ZEILEN in Kombination mit TEXTVERKETTEN nutzen, um die Anzahl der Zeilen zu ermitteln. Diese Methode ist jedoch weniger präzise, da sie nicht die tatsächliche Sichtbarkeit der Zeilen berücksichtigt.

=ANZAHLLEEREZELLEN(A1:A10)

Diese Formel zählt die leeren Zellen in einem Bereich und kann helfen, die Zeilenanzahl grob zu ermitteln.


Praktische Beispiele

Angenommen, Du hast in Zelle B4 einen Text, der durch ALT + ENTER umgebrochen wurde. Wenn Du das Makro ausführst, wird ein Dialogfeld mit der Anzahl der sichtbaren Zeilen in dieser Zelle angezeigt.

Ein weiteres Beispiel wäre die Verwendung von =ANZAHL2(B4) in einer Zelle, um die Anzahl der nicht leeren Zellen zu zählen.


Tipps für Profis

  • Wenn Du häufig die Anzahl der Zeilen in Zellen ermitteln musst, speichere das VBA-Skript in Deinem persönlichen Makro-Arbeitsbuch, um schnell darauf zugreifen zu können.
  • Experimentiere mit der Spaltenbreite, um zu sehen, wie sich die Zeilenanzahl ändert. Dies hilft bei der Planung von Layouts in Deinen Excel-Dokumenten.

FAQ: Häufige Fragen

1. Wie viele Zeilen kann Excel insgesamt haben?
Excel hat maximal 1.048.576 Zeilen pro Arbeitsblatt.

2. Kann ich die Anzahl der markierten Zeilen in Excel anzeigen?
Ja, Du kannst die Anzahl der markierten Zeilen mit der Funktion =ANZAHL2(A1:A10) ermitteln, indem Du den Bereich anpasst.

3. Wie kann ich die Zeilenanzahl in einer Zelle mit bestimmten Inhalt zählen?
Du kannst dies mit einer Kombination aus WENN und ANZAHL erreichen, um nur die Zellen mit dem gewünschten Inhalt zu zählen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige