HERBERS Excel-Forum - die Beispiele

Thema: Anzahl von Zellen aus einem nicht rechteckigen Bereich ermitteln

Home

Gruppe

UDF

Problem

Über eine benutzerdefinierte Funktion soll die Anzahl der Zellen in einem nicht rechteckig umrahmten Bereich ermittelt werden.

Lösung
Über die nachfolgende benutzerdefinierte Funktion.
StandardModule: Modul1

Function CellsCount(rng As Range) As Integer
   Dim lRow As Long
   Dim iCol As Integer, iCounter As Integer
   For lRow = rng.Row To ActiveSheet.Rows.Count
      For iCol = rng.Column To ActiveSheet.Columns.Count
         iCounter = iCounter + 1
         If Cells(lRow, iCol).Borders(xlEdgeRight).Weight = xlMedium Then
            Exit For
         End If
      Next iCol
      iCol = rng.Column
      If Cells(lRow, iCol).Borders(xlEdgeBottom).Weight = xlMedium Then
         Exit For
      End If
   Next lRow
   CellsCount = iCounter
End Function

Sub Test()
MsgBox Range("H30").Borders(xlEdgeRight).Weight
End Sub

Beiträge aus dem Excel-Forum zu den Themen UDF und Bereich

Dynamischer Datenbereich im Diagramm Bereich als Bild speichern.
1. freie Zelle in nicht zusammenhängenden Bereich Bestimmtheitsmass nach vorgegebenen Bereich
Bestimmten Bereich anhand Zeilenabgabe kopieren Bereich löschen
Array - Index außerhalb des gültigen Bereichs zoom auf Druckbereichsbreite anpassen
Bereich syncronisieren II Zeilenbereich auf Tabelle übertragen
Druchbereiche auf eine Seite Definitionsbereich
Bereich von rechts nach links auslesen? Namen definieren für bestimmten Bereich
Nur einen Eintrag im Bereich zulassen Kommentar in erste zelle einess Bereiches
bedingte Formatierung für zellenbereich Summewenn mit abhängigen Bereichen
Bereiche in separates sheet Summewenn mit abhängigen Bereichen
Absturz bei lokalen Bereichsnamen Teilbereich einer Zelle einfärben
Abfrage ob Druckbereich zu groß für Seitenbreite Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage)
Gruppierten Bereich sperren Bestimmte Zahlen aus einem Bereich
Bereich nur unter best. Voraussetzg. summieren Name eine benannten Bereiches finden
Farbigen Rangebereich auswählen Wert-Suche in Bereich
Bereich als Grafik speichern Zeile löschen in Bereich
variablen Druckbereich definieren Wertebereich definieren
Vergleich Datum in CB mit Datum in einem Bereich Zeilen und Spalten von Bereich markieren
verlinkungen in markiertem bereich erneuern Differenz zweier Summe im dynamischen Bereich
Zelbereiche(Matrizen) an Variablen zuweisen Ergebnis UDF ändert, wenn Tabelle deaktiviert wird
Löschen eines Bereiches Höchsten Wert aus einem Bereich auslesen
bereichsnamen mit indirekt zusammensetzen UDF soll nicht auf Daten anderer Dateien zugreifen
Copy - paste von Zellbereich in Tabelle abfangen per Makro markierten Bereich auslesen
Teilbereich einer Arbeitsmappe speichern Summenprodukt und Namensbereich
Vorkommen von Werten eines Bereiches zählen vor Ausführung einer UDF Zwischenspeicher "retten&