Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.08.2018 17:44:10 |
hp12 |
|
|
|
12.08.2018 19:46:38 |
hp12 |
|
|
Reihenfolge gleichbleibender Zahlen/Zeichen zählen |
12.08.2018 20:36:53 |
Gast1214 |
|
|
|
12.08.2018 20:52:41 |
hp12 |
|
|
|
12.08.2018 22:50:45 |
Gast1214 |
|
|
Von:
Gast1214 |
Datum:
12.08.2018 20:36:53 |
Views:
1096 |
Rating:
|
Antwort:
|
Thema:
Reihenfolge gleichbleibender Zahlen/Zeichen zählen |
Hi hp12.
Probier mal dies und gibt Bescheid wie es läuft - pack diesen direkt in die jeweilige Tabelle in der die Daten liegen.
(hab mal zum besseren Verständnis hier und da etwas mehr kommentiert)
Option Explicit
Public Sub Test()
Dim rngC1 As Excel.Range
Dim rngC2 As Excel.Range
Set rngC1 = Range("A2") '<- ab dieser Zelle geht es los
Set rngC2 = rngC1 '<- diese Variable stellt die Zelle dar, mit der wir nach unten suchen; bis zum Ende
Do
Set rngC2 = rngC2.Offset(1) 'eine Zelle nach unten
If 0 <> StrComp(rngC2, rngC1, vbTextCompare) Then
'-> Zellen haben unterschiedl. Inhalt
With Range(rngC1, rngC2) 'Bereich zw. beiden Zellen referenzieren
If 0 = StrComp(rngC1, "yes", vbTextCompare) Then
'-> der Inhalt ist 'yes'
.Resize(.Rows.Count - 1).Offset(, 1).Formula = "=ROW(" & rngC2.Address & ")-ROW()"
'Formeln in Werte umwandeln
.Value = .Value
Else
'-> der Inhalt ist nicht 'yes'
.Resize(.Rows.Count - 1).Offset(, 1).Value = 0
End If
End With
Set rngC1 = rngC2 '(neuen) Anfang aktualisieren
End If
Loop Until Trim$(rngC2) = "" 'solange bis kein Inhalt mehr
End Sub
Grüße
|
- 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
|
|
12.08.2018 17:44:10 |
hp12 |
|
|
|
12.08.2018 19:46:38 |
hp12 |
|
|
Reihenfolge gleichbleibender Zahlen/Zeichen zählen |
12.08.2018 20:36:53 |
Gast1214 |
|
|
|
12.08.2018 20:52:41 |
hp12 |
|
|
|
12.08.2018 22:50:45 |
Gast1214 |
|
|