markierte Zellen zählen

Forumthread: markierte Zellen zählen

19.10.2005 13:22:47

Andreas

Hallo zusammen!
Schon wieder ich.
Es handelt sich um folgendes:
"bst" und "ransi" haben mir heute freundlicherweise bei einem
Makro geholfen:


Sub Mittelwertberechnen()
Dim bereich As Range
Dim dst As Range
Set dst = Nothing
On Error Resume Next
Set bereich = Application.InputBox("Bitte markieren Sie die Zellen für die der Mittelwert berechnet werden soll", Type:=8)
If bereich Is Nothing Then Exit Sub
'Ist es möglich die Zellen welche unter "bereich" gewählt wurden zu zählen
'Es ist nähmlich so, dass der Anwender, wenn er mehr als 15 Zellen
'markiert hat, einen diesbezüglichen Hinweis bekommen soll.
Set dst = Application.InputBox("Bitte wählen Sie die Zelle in die der Mittelwert eingefügt werden soll und drücken Sie OK", Type:=8)
On Error GoTo 0
If dst Is Nothing Then Exit Sub
dst.Value = Application.WorksheetFunction.Average(bereich)
End Sub

Für jede Hilfe bin ich sehr dankbar.
Mahlzeit
Andreas

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: markierte Zellen zählen

19.10.2005 13:37:17

Werner
AW: markierte Zellen zählen

19.10.2005 13:37:33

UweD
AW: markierte Zellen zählen

19.10.2005 13:38:50

bst
Danke an alle

19.10.2005 13:41:16

Andreas
Danke für die Rückmeldung OT:-)

19.10.2005 13:42:25

Werner

AW: markierte Zellen zählen

19.10.2005 13:37:17

Werner

Hallo Andreas
Dieser Code zählt alle gewählten Zellen und gibt die Entspechende Meldung.


Sub Anzahl_Markierte_Zellen()
FRow = Range(Selection.Address).Row
LRow = Range(Selection.Address).Row + Selection.Rows.Count - 1
FColumn = Range(Selection.Address).Column
LColumn = Range(Selection.Address).Column + Selection.Columns.Count - 1
xRow = LRow - FRow + 1
xColumn = LColumn - FColumn + 1
xZellen = xRow * xColumn
If xZellen < 16 Then
MsgBox xZellen
Else
MsgBox ("Zuviel Zellen gewählt " & xZellen)
End If
End Sub

Gruss Werner

AW: markierte Zellen zählen

19.10.2005 13:37:33

UweD

Hallo
so z.B.


Sub zählen()
Dim Anz%
Anz = Selection.Count
If Anz >= 15 Then MsgBox " Er wurden 15 oder mehr Zellen ausgewählt"
End Sub

Dabei spielt es keine Rolle, ob die Zellen zusammenhängen, oder (mit gedrückter Strg Taste) einzeln markiert wurden
Gruß UweD
(Rückmeldung wäre schön)

AW: markierte Zellen zählen

19.10.2005 13:38:50

bst

Nochmals Hallo,
schau Dir mal bereich.count an.
cu, bernd

Danke an alle

19.10.2005 13:41:16

Andreas

Vielen Dank an Euch.
Schöne Grüße
Andreas

Danke für die Rückmeldung OT:-)

19.10.2005 13:42:25

Werner

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Anzahl markierter Zellen in Excel zu zählen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

Öffne dein Excel-Dokument und wähle die Zellen aus, die du zählen möchtest.
Öffne den VBA-Editor, indem du ALT + F11 drückst.
Erstelle ein neues Modul:
- Klicke im Menü auf Einfügen und wähle Modul.

Füge den folgenden Code in das Modul ein:

Sub Anzahl_Markierte_Zellen()
   FRow = Range(Selection.Address).Row
   LRow = Range(Selection.Address).Row + Selection.Rows.Count - 1
   FColumn = Range(Selection.Address).Column
   LColumn = Range(Selection.Address).Column + Selection.Columns.Count - 1
   xRow = LRow - FRow + 1
   xColumn = LColumn - FColumn + 1
   xZellen = xRow * xColumn
   If xZellen < 16 Then
       MsgBox xZellen
   Else
       MsgBox ("Zuviel Zellen gewählt " & xZellen)
   End If
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

Fehler: "Es wurde kein Bereich ausgewählt."
- Lösung: Stelle sicher, dass du die Zellen markiert hast, bevor du das Makro ausführst.
Fehler: Das Makro zählt nicht die erwartete Anzahl an Zellen.
- Lösung: Überprüfe, ob du tatsächlich die gewünschten Zellen markiert hast und ob das Makro korrekt eingefügt wurde.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du auch die Funktion =ANZAHL(A1:A10) verwenden, um die Anzahl der markierten Zellen zu zählen, wobei du den Bereich A1:A10 entsprechend anpassen solltest. Beachte, dass diese Methode nur die nicht-leeren Zellen zählt.

Praktische Beispiele

Zählen von markierten Zellen:
- Markiere eine Gruppe von Zellen und führe das Makro Anzahl_Markierte_Zellen aus. Du erhältst eine Meldung mit der Anzahl der gewählten Zellen.
Meldung bei zu vielen Zellen:
- Wenn du mehr als 15 Zellen markierst, wird eine Warnmeldung angezeigt, die dich darauf hinweist.

Tipps für Profis

Verwende die Funktion bereich.Count, um die Anzahl der markierten Zellen direkt zu ermitteln, ohne ein vollständiges Makro zu schreiben.
Wenn du häufig mit großen Datenmengen arbeitest, kann es hilfreich sein, die Makros in der Symbolleiste für den Schnellzugriff zu speichern, um den Zugriff zu erleichtern.
Experimentiere mit anderen VBA-Funktionen, um die Anzahl der markierten Zeilen anzuzeigen oder spezifische Berechnungen durchzuführen.

FAQ: Häufige Fragen

1. Wie kann ich die Anzahl markierter Zellen in Excel 2016 zählen?
Die Schritte sind grundsätzlich gleich. Du kannst das bereitgestellte VBA-Skript in jede Excel-Version einfügen.

2. Gibt es eine Möglichkeit, die Anzahl markierter Zellen ohne Makros zu zählen?
Ja, du kannst die Funktion =ANZAHL(A1:A10) verwenden, um die Anzahl nicht-leerer Zellen in einem bestimmten Bereich zu zählen.

Beliebteste Forumthreads (12 Monate)

Forumthread: markierte Zellen zählen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Markierte Zellen in Excel zählen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread