Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Loop mit mehreren Bedingungen
07.07.2021 17:30:46 Artur
NotSolved
07.07.2021 19:19:47 Gast42183
NotSolved
08.07.2021 07:32:49 Artur
NotSolved
08.07.2021 07:43:18 Artur
NotSolved
08.07.2021 07:58:40 Gast63223
NotSolved

Ansicht des Beitrags:
Von:
Artur
Datum:
07.07.2021 17:30:46
Views:
715
Rating: Antwort:
  Ja
Thema:
VBA Loop mit mehreren Bedingungen

Hallo zusammen, 

ich bin ein extremer Laie was Excel VBA angeht.
Nun stehe ich vor einem Problem welches mich schon seit mehreren Tagen fertig macht.

Ich möchte, dass wenn in Spalte B "Kampagne:Kampagnename" steht und der Wert in Spalte U kleiner als 100 ist, soll diese Zeile ausgeblendet werden. Und alle weiteren Zeilen, die den selben Wert in Spalte C haben wie die ausgeblendete Zeile, sollen ebenfalls ausgeblendet werden.

Aktuell werden mir alle Zeilen ausgeblendet mit dem Wert "Kampagne:Kampagnename" in Spalte B und alle anderen Zeilen, welche den selben Wert in Spalte C haben (Spalte U wird nicht berücksichtig).
Ich hoffe, dass mir jemand helfen kann. Vielen vielen Dank schonmal dafür!!!

 

Sub HideCompletes()
    ' first find the last row in the spreadsheet that has data
    Dim lastrow As Long
    
    
    lastrow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row

    ' now loop through the cells in B and hide them if they are "Kampagnenname"
    For Each cell In ActiveSheet.Range("B2:B" & lastrow)
    For Each artur In ActiveSheet.Range("U2:U" & lastrow)
        If cell.Value = "Kampagne:Kampagnename" And artur.Value < 100 Then
            cell.EntireRow.Hidden = True

            ' get the value from column C for that row
            Dim hiddenvalue As Variant
            hiddenvalue = ActiveSheet.Range("C" & cell.Row)

            ' now loop through the cells in C and hide them if they match our hidden value
            ' the value 0 will match an empty cell so we need to check both conditions
            For Each othercell In ActiveSheet.Range("C2:C" & lastrow)
                If othercell.Value = hiddenvalue Then
                    othercell.EntireRow.Hidden = True

                End If
            Next othercell

        End If
    Next artur
    Next cell
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
Rot VBA Loop mit mehreren Bedingungen
07.07.2021 17:30:46 Artur
NotSolved
07.07.2021 19:19:47 Gast42183
NotSolved
08.07.2021 07:32:49 Artur
NotSolved
08.07.2021 07:43:18 Artur
NotSolved
08.07.2021 07:58:40 Gast63223
NotSolved