Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.11.2015 18:17:40 |
std |
|
|
Wie mache ich in Abhängigkeit einer Bedingung, eine forlaufend wechselnde Numerrierung? |
11.11.2015 01:29:33 |
BigBen |
|
|
|
16.11.2015 20:43:11 |
Gast28270 |
|
|
Von:
BigBen |
Datum:
11.11.2015 01:29:33 |
Views:
332 |
Rating:
|
Antwort:
|
Thema:
Wie mache ich in Abhängigkeit einer Bedingung, eine forlaufend wechselnde Numerrierung? |
Hallo,
der nachfolgende Code zählt alle Zellen, sofern dieser identisch ist:
Function CountIf(DataRange As Range, ActualCell As Range) As Integer
Dim iRowAct As Integer, iRow As Integer, iCnt As Integer
Dim strValue As String
iRowAct = ActualCell.Row - DataRange.Row + 1
strValue = DataRange.Rows(iRowAct)
Debug.Print iRowAct, strValue
For iRow = iRowAct To 1 Step -1
If DataRange.Rows(iRow) = strValue Then
iCnt = iCnt + 1
Else
Exit For
End If
Next
CountIf = iCnt
End Function
Funktions-Aufruf: =CountIf(Spalte;Aktuelle Zelle)
Ausgabe:
Adressnummer |
Mitarbeiter |
12 |
1 |
12 |
2 |
12 |
3 |
13 |
1 |
13 |
2 |
13 |
3 |
14 |
1 |
15 |
1 |
16 |
1 |
16 |
2 |
Bsp.: Zelle B2: =CountIf($A$2:$A$11;A2)
VG, BigBen
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.11.2015 18:17:40 |
std |
|
|
Wie mache ich in Abhängigkeit einer Bedingung, eine forlaufend wechselnde Numerrierung? |
11.11.2015 01:29:33 |
BigBen |
|
|
|
16.11.2015 20:43:11 |
Gast28270 |
|
|