Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.01.2023 16:18:24 |
PaulDo |
|
|
|
03.01.2023 06:12:58 |
RPP63 |
|
|
|
03.01.2023 09:13:57 |
PaulDo |
|
|
|
03.01.2023 13:42:39 |
Gast69298 |
|
|
|
03.01.2023 19:38:03 |
PaulDo |
|
|
|
04.01.2023 11:21:54 |
PaulDo |
|
|
|
04.01.2023 12:10:46 |
ralf_b |
|
|
Auto Filter, Bezug auf Zellenwert |
04.01.2023 18:47:02 |
PaulDo |
|
|
Von:
PaulDo |
Datum:
04.01.2023 18:47:02 |
Views:
307 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
03.01.2023 06:12:58 |
RPP63 |
|
|
|
03.01.2023 09:13:57 |
PaulDo |
|
|
|
03.01.2023 13:42:39 |
Gast69298 |
|
|
|
03.01.2023 19:38:03 |
PaulDo |
|
|
|
04.01.2023 11:21:54 |
PaulDo |
|
|
|
04.01.2023 12:10:46 |
ralf_b |
|
|
Auto Filter, Bezug auf Zellenwert |
04.01.2023 18:47:02 |
PaulDo |
|
|