Thema Datum  Von Nutzer Rating
Antwort
12.08.2018 17:44:10 hp12
NotSolved
12.08.2018 19:46:38 hp12
NotSolved
Rot Reihenfolge gleichbleibender Zahlen/Zeichen zählen
 12.08.2018 20:36:53 Gast1214
NotSolved
12.08.2018 20:52:41 hp12
NotSolved
12.08.2018 22:50:45 Gast1214
NotSolved

Ansicht des Beitrags:
Von:
Gast1214		 Datum:
12.08.2018 20:36:53		 Views:
1056		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
12.08.2018 19:46:38 hp12
NotSolved
Rot Reihenfolge gleichbleibender Zahlen/Zeichen zählen
 12.08.2018 20:36:53 Gast1214
NotSolved
12.08.2018 20:52:41 hp12
NotSolved
12.08.2018 22:50:45 Gast1214
NotSolved