Thema Datum  Von Nutzer Rating
Antwort
17.12.2021 11:41:45 CJ
NotSolved
Blau Mehrere Labels mit verschiedenen Ergebnissen
 17.12.2021 12:04:29 Mase
Solved

Ansicht des Beitrags:
Von:
Mase		 Datum:
17.12.2021 12:04:29		 Views:
541		 Rating:
     
Antwort:
 Nein
Thema:
Mehrere Labels mit verschiedenen Ergebnissen

Weiss zwar nicht wo genau es bei dir hapert, aber schlage unabhängig Deiner prpgrammlogik folgendes, vereinfachtes, Beispiel vor:

Option Explicit

Sub main()
    
    Dim rng As Excel.Range
    Set rng = getIntersectRange(ActiveSheet.Range("A1").CurrentRegion, "Kundennummer 2")
    
    '*** prüfen, ob Objektvariable eine referenz enthält
    If Not rng Is Nothing Then
        '*** Wenn ja, hier weiter machen und auf die einzelnen Zellen zugreifen (Ich greife etwas vor: Achtung bei nciht zusammenhängenden Bereichen // Stichwort Areas)
        
    End If
    
End Sub

Function getIntersectRange(ByRef rngBereich As Excel.Range, ByVal sSuchWert As String) As Excel.Range
    With rngBereich
    
        '*** Autofilter mit Suchkriterium setzen
        .AutoFilter Field:=1, Criteria1:=sSuchWert
            
        '*** etwaige Ergebnismenge in Objektvariable referenzieren
        Set getIntersectRange = Intersect(rngBereich, rngBereich.Offset(1), rngBereich.SpecialCells(xlCellTypeVisible))
        
    End With
End Function

 

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
17.12.2021 11:41:45 CJ
NotSolved
Blau Mehrere Labels mit verschiedenen Ergebnissen
 17.12.2021 12:04:29 Mase
Solved