Thema Datum  Von Nutzer Rating
Antwort
02.01.2023 16:18:24 PaulDo
NotSolved
03.01.2023 06:12:58 RPP63
NotSolved
03.01.2023 09:13:57 PaulDo
NotSolved
03.01.2023 13:42:39 Gast69298
NotSolved
03.01.2023 19:38:03 PaulDo
NotSolved
04.01.2023 11:21:54 PaulDo
NotSolved
04.01.2023 12:10:46 ralf_b
NotSolved
Blau Auto Filter, Bezug auf Zellenwert
04.01.2023 18:47:02 PaulDo
NotSolved

Ansicht des Beitrags:
Von:
PaulDo
Datum:
04.01.2023 18:47:02
Views:
332
Rating: Antwort:
  Ja
Thema:
Auto Filter, Bezug auf Zellenwert

Schleife, da ich alle Werte x in einer Spalte B ansprechen will. Mit folgendem Code scheint das zu funktionieren, nur muss dabei der wert von if und der wert in der Tabelle 1 zu 1 übereinstimmen. Ich hätte gern etwas wie xlPart bei der Funktion Find. Funktion Find bleibt immer beim ersten gefundenen Wert stehen.  Like funktioniert bei mir nicht unter Verwendung von Parametern. Das Problem hätte ich gerne noch gelöst.

Sub SucheSpalteB(wert As String, eintrag As String)


ThisWorkbook.Worksheets("Tabelle1").Activate


Dim Zelle As Range
 
  For Each Zelle In Range("B2:B6")
    If Zelle.Value = wert Then
      Zelle.Offset(0, 1).Value = eintrag
    ElseIf Zelle.Value < 0 Then
      Zelle.Offset(0, 1).Value = "Negativ"
    Else
      Zelle.Offset(0, 1).Value = "Null"
     End If
  Next Zelle
End Sub

Sub aufruf()
Call SucheSpalteB("Ha", "postK")
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
02.01.2023 16:18:24 PaulDo
NotSolved
03.01.2023 06:12:58 RPP63
NotSolved
03.01.2023 09:13:57 PaulDo
NotSolved
03.01.2023 13:42:39 Gast69298
NotSolved
03.01.2023 19:38:03 PaulDo
NotSolved
04.01.2023 11:21:54 PaulDo
NotSolved
04.01.2023 12:10:46 ralf_b
NotSolved
Blau Auto Filter, Bezug auf Zellenwert
04.01.2023 18:47:02 PaulDo
NotSolved