Thema Datum  Von Nutzer Rating
Antwort
28.02.2020 11:32:51 GoranBendtner
NotSolved
Blau If Textwert in Spalte C gleich UND mind. 1x eine 1 in Spalte G, Else für alle = 1
 28.02.2020 18:13:03 Gast4210
NotSolved
03.03.2020 10:43:00 Gast10738
NotSolved

Ansicht des Beitrags:
Von:
Gast4210		 Datum:
28.02.2020 18:13:03		 Views:
678		 Rating:
     
Antwort:
  Ja
Thema:
If Textwert in Spalte C gleich UND mind. 1x eine 1 in Spalte G, Else für alle = 1		 
Option Explicit

Sub Test()
  
  Dim rngCellS As Excel.Range 'Zelle, dessen Textinhalt sich zum Vorgänger unterscheidet
  Dim rngCellE As Excel.Range 'Zelle in der man sich gerade befindet
  
  
  'erste Zelle festlegen (von hier aus geht es los)
  Set rngCellE = Worksheets("Tabelle1").Range("A1")
  
  
  
  Set rngCellS = rngCellE
  Do
    
    'fand ein Wechsel der Zelleninhalte statt?
    If rngCellE.Value <> rngCellS.Value Then
      
      'den Bereich mit gleichem Zelleninhalt referenzieren...
      With rngCellE.Worksheet.Range(rngCellS, rngCellE.Offset(-1))
        '... Einsen (1) in dem Bereich eine Spalte daneben zählen; wenn Anz. größer Null ...
        If WorksheetFunction.CountIf(.Cells.Offset(, 1), "=1") > 0 Then
          .Offset(, 2).Value = 1 'Ausgabe in zweite Spalte daneben
        Else
          .Offset(, 2).Value = 0 'Ausgabe in zweite Spalte daneben
        End If
      End With
      
      Set rngCellS = rngCellE
    Else
      'nächste Zelle referenzieren / eine Zeile tiefer
      Set rngCellE = rngCellE.Offset(1)
    End If
    
  Loop While rngCellS.Value <> "" 'solange die Zelle einen Inhalt hat
  
End Sub

 

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
28.02.2020 11:32:51 GoranBendtner
NotSolved
Blau If Textwert in Spalte C gleich UND mind. 1x eine 1 in Spalte G, Else für alle = 1
 28.02.2020 18:13:03 Gast4210
NotSolved
03.03.2020 10:43:00 Gast10738
NotSolved