Thema Datum  Von Nutzer Rating
Antwort
18.05.2020 18:24:21 Gast754321
NotSolved
Blau in bestimmtem Zellbereich Daten ändern
18.05.2020 19:31:58 Gast41060
NotSolved
18.05.2020 20:47:29 Gast11352
NotSolved
18.05.2020 20:49:38 Gast62419
NotSolved
18.05.2020 22:32:09 Gast41060
Solved
19.05.2020 10:37:41 Gast57683
NotSolved

Ansicht des Beitrags:
Von:
Gast41060		 Datum:
18.05.2020 19:31:58		 Views:
866		 Rating:
     
Antwort:
  Ja
Thema:
in bestimmtem Zellbereich Daten ändern

Hi Jennifer,

könnte so gehen:

Sub FürJedesArbeitsblatt()
    
    Dim wks As Excel.Worksheet
    Dim rng As Excel.Range
    
    For Each wks In ThisWorkbook.Worksheets
        With wks
            For Each rng In .Range("A1").CurrentRegion.Resize(, .Range("A1").CurrentRegion.Columns.Count - 1).Offset(, 1).Rows
                Call WerteErsetzen(rng)
            Next rng
        End With
    Next wks
End Sub

Sub WerteErsetzen(ByRef rng As Excel.Range)
    Dim vArr As Variant
    Dim i As Long
    
    i = 0
    vArr = rng
    
        For i = LBound(vArr, 2) To UBound(vArr, 2) Step 1
            vArr(1, i) = IIf((vArr(1, i) > 20), 1, 0)
        Next i
    
    rng = vArr
    
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
18.05.2020 18:24:21 Gast754321
NotSolved
Blau in bestimmtem Zellbereich Daten ändern
18.05.2020 19:31:58 Gast41060
NotSolved
18.05.2020 20:47:29 Gast11352
NotSolved
18.05.2020 20:49:38 Gast62419
NotSolved
18.05.2020 22:32:09 Gast41060
Solved
19.05.2020 10:37:41 Gast57683
NotSolved