Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.11.2025 19:12:10
2 Makros, 2 Ergebnisse, nur das erste Ergebnis korrekt?
03.11.2025 15:51:02
Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen
03.11.2025 14:48:20
Links funktionieren nur bei ganzer Tabelle, nicht bei Auszug
03.11.2025 12:49:44
Zählenwenn verwenden über VBA mit einem ExcelNamen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

set rngBereich

Forumthread: set rngBereich

set rngBereich
09.03.2019 21:40:49
Peter
Hallo,
im Archiv habe ich das PAssende nicht gefunden, deshalb brauche ich Hilfe.
Mit
  • WF2 = Application.WorksheetFunction.Quartile(myrange, 2)

    • berechne ich aus einer langen Liste für bestimmte Bereiche den Median. myrange habeich so definiert
  • Set myrange = Range(cell1:="E" & Start, cell2:="e" & Ende)

    • Nun soll aber nicht jeder Wert in Spalte e berücksichtigt werden, sondern nur der, bei dem in Spalte D ein Wert größer 5 steht.
    Wie muss jetzt dieset-Anweisung lauten?
    Kann mir jemand helfen und mir den Code nennen?
    Grüße
    Peter
    Anzeige

    3
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: set rngBereich
    09.03.2019 22:34:35
    Luschi
    Hallo Peter,
    ich würde das so machen: 
    
Dim myRng1 As Range, myRng2 As Range, myRng3 As Range, _
Start As Integer, Ende As Integer, minWert As Integer
Start = 13: Ende = 83
minWert = 5
Set myRng1 = Worksheets("meineTabelle").Range(cell1:="E" & Start, cell2:="e" & Ende)
For Each myRng2 In myRng1
If myRng2.Offset(0, -1).Value >= minWert Then
If myRng3 Is Nothing Then
Set myRng3 = myRng2
Else
Set myRng3 = Application.Union(myRng3, myRng2)
End If
End If
Next myRng2
Debug.Print myRng3.Address
    Gruß von Luschi
    aus klein-Paris
    Anzeige
    AW: set rngBereich
    09.03.2019 22:39:01
    Peter
    Hallo Luschi,
    ist ja schön, dass noch jemand so spät weiterhilft. Ich denke, Dein Vorschlag wird passen. Danke, ich werde mein Glück probieren und bei Erfolg eine Rückmeldung geben.
    Schönen Abend
    Grüße
    Peter
    AW: set rngBereich
    09.03.2019 22:47:30
    Peter
    Hallo Luschi,
    ist ja schön, dass noch jemand so spät weiterhilft. Ich denke, Dein Vorschlag wird passen. Danke, ich werde mein Glück probieren und bei Erfolg eine Rückmeldung geben.
    Schönen Abend
    Grüße
    Peter
    Hallo Luschi,
    so funktioniert es, Danke
    Grüße
    Peter
    Anzeige
    ;

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige