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:
1458		 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)

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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