Office 2010: Code für - Die Anzahl von Zellen mit Unterstrich

[sebastiano9]

Hallo zusammen
Ich habe bereits einiges gelesen zu dem genannten Thema, und es funktioniert halbwegs nur die wichtigere hälfte nicht . . . ich brauch die Anzahl, nicht die Summe

Ich erkläre kurz was ich brauche. In dem Entwicklertool möchte ich eine Formel kreieren die mir die Zellen zählt, die Unterstrichen sind und Werte haben. In die Zellen werden Zahlenwerte eingetragen. Und ich benötige dann nur die Anzahl von den Unterstrichenen, nicht die Summe.
Beispiel von einer Spalte A1 bis A10
5€
5€
2€ (unterstrich)
2€
3€ (Unterstrich)
/ (Unterstrich)
leer
/ (Unterstrich)
leer
/ (Unterstrich)

Es sind 10 Zellen, davon nur 2 mit Unterstrich und Werten. Ich benötige nun nur die Anzahl daraus . . in dem Beispiel wäre es 2

Vielen Dank schonmal für die Hilfe
Gruß
Sebastiano

[StefKe]

Hallo Sebastiano, schau Dir diesen Artikel an...löst das Dein Problem?

https://answers.microsoft.com/de-de/msoffice/wiki/msoffice_excel-mso_other/die-excel4-makrofunktion-zellezuordnen/6ee8af02-b52c-45b7-94ef-7f7bb7e45d88

Beachte den mittleren Teil das Artikels: "Liste des Arguments Typ..."

[sebastiano9]

Hallo StefKe

Vielleicht bin ich zu unerfahren um mir daraus die Lösung zu holen.
Ich versuche es vielleicht anders . . . ohne ein Modul zu erstellen würde ich in eine "normale" Excel Zelle folgendes schreiben:
=Zählenwenn(in dem Bereich; wenn eine Zahl Unterstrichen ist; dann immer +1 hinzuaddieren)

Folgenden Code habe ich gefunden für Fett Schrift, allerdings wird es Summiert.

Public Function SummeFett(Bereich As Range) As Double
   Dim rngCell As Range
   
   For Each rngCell In Bereich
      SummeFett = SummeFett + IIf(rngCell.Font.Bold, rngCell.Value, 0)
   Next rngCell
End Function


Wenn ich das Laienhaft versuche umzuschreiben, dann wird das nix


Mit der Tabelle arbeite ich täglich . . . und es entspricht 1 Jahr . .  und jeden Tag kommt ein Eintrag hinzu . . . und wenn ich diesen Eintrag dann als UNTERSTRICH markiere, bzw. dann eine Zahl ist, die Unterstrichen ist, dann soll die Anzahl der Unterstrichenen, in einer bestimmten Zelle zusammengezählt werden.

[StefKe]

Hallochen, ist so ziemlich schlampig dahingeschrieben:

Code: [Auswählen]

Function Unterstrich(Anfang, Ende)
Dim AnfangZeile
Dim AnfangSpalte
Dim EndeZeile
Dim EndeSpalte
Dim i
Dim z

AnfangZeile = Anfang.Row
AnfangSpalte = Anfang.Column
EndeZeile = Ende.Row
EndeSpalte = Ende.Column

For i = AnfangZeile To EndeZeile
    Unterstrich = Cells(i, AnfangSpalte).Font.Underline
    If Unterstrich = xlUnderlineStyleSingle Then
         z = z + 1
    End If
Next i

Unterstrich = z

End Function
musst halt die Variablen noch deklarieren und anpassen. Die Neuberechnung muss aber im Tabellenblatt mit F9 erfolgen. Oder Du machst es als Sub und verknüpfst den Code mit einer Schaltfläche.....

[sebastiano9]

Vielen Dank für die tolle Hilfe ))

[StefKe]

Gern geschehen, noch einen Hinweis: falls Du den Code als Sub mittel Button starten willst bevorzuge ich den CostumUI Editor. Die Schaltflächen sind im RibbonX immer erreichbar und sehen chic aus...
http://www.rondebruin.nl/win/s2/win001.htm