Thema Datum  Von Nutzer Rating
Antwort
16.06.2021 15:03:13 MarcM
NotSolved
Blau Eine Variante
 16.06.2021 17:20:08 Mase
NotSolved
17.06.2021 15:40:07 Gast80406
NotSolved
24.06.2021 16:35:16 MarcM
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
16.06.2021 17:20:08		 Views:
461		 Rating:
     
Antwort:
  Ja
Thema:
Eine Variante		 
    Dim rngFilterbereich    As Excel.Range
    Dim rngIntersect        As Excel.Range
    Dim lngArea             As Long
    
    '*** Falls gefiltert, Filter entfernen
    If ThisWorkbook.ActiveSheet.FilterMode Then ThisWorkbook.ActiveSheet.FilterMode = False
    
    '*** Autofilter referenzieren
    Set rngFilterbereich = ThisWorkbook.ActiveSheet.Range("A1:C10")
    
    '*** Autofilter setzen
    rngFilterbereich.AutoFilter Field:=1, Criteria1:="x"
    
    '*** Schnittmenge
    Set rngIntersect = Intersect(rngFilterbereich, rngFilterbereich.Offset(1, 0), rngFilterbereich.SpecialCells(xlCellTypeVisible))
    
    If Not rngIntersect Is Nothing Then
        '*** Durchlaufe Areas und setze in Spalte 3 das "U"
        For lngArea = 1 To rngIntersect.Areas.Count Step 1
            rngIntersect.Areas(lngArea).Columns(3).Value = "U"
        Next
        
    End If

 

Zugrundeliegende Tabelle A1:C10

 

SpalteA SpalteB Kennzeichnung
aaa aaa  
aaa aaa  
x x  
aaa aaa  
x x  
aaa aaa  
aaa aaa  
x x  
x x  

 

Ziel:

Ein "U" in Spalte C, wenn ein "x" in Spalte A.

 

 

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
16.06.2021 15:03:13 MarcM
NotSolved
Blau Eine Variante
 16.06.2021 17:20:08 Mase
NotSolved
17.06.2021 15:40:07 Gast80406
NotSolved
24.06.2021 16:35:16 MarcM
NotSolved