Office: VBA - Schaltfläche für Mehrere Werte Suchen und Zahlenwert ändern

Hallo zusammen,

und zwar habe ich folgendes Problem und würde das Gerne via VBA über eine Schaltfläche realisieren. Da ich absoluter Neuling bin in dem Thema steh ich da leider total auf dem Schlauch und komme überhaupt nicht weiter.

Ich hätte gerne Abseits einen Button der folgendes machen soll. Zuerst soll in Spalte 2 , Zeile 1 nach dem Ausdruck "1000km" Gesucht werden. Dann soll in Spalte 4 geschaut werden welcher Ausdruck dort enthalten ist. In diesem Falle ein "R" "D" "L" oder ein "U". Nur wenn der Ausdruck in Spalte 2 Wahr/enthalten ist und in Spalte 4 entweder ein "U" oder ein "D" steht dann soll in Spalte 5 von beiden "Zahlenwerten" jeweils eine Zahl "50" abgezogen werden. Das Gleiche dann für wenn der Ausdruck in Spalte 2 Wahr ist und in Spalte 4 entweder ein "R" oder ein "L" steht soll erneut in Spalte 5 von beiden Zahlenwerten eine Zahl "90" abgezogen werden.

Trifft davon nichts zu soll einfach nichts passieren.

Das Ganze soll dann für jede Zeile automatisiert geschehen. Ist das ohne weiteres Überhaupt so einfach möglich?
LG Cristina

 

Hab es gerade probiert, konnte aber in dein Bild keine Formel, Schaltfläche oder VBA Code eingeben,

 

Hi,
hab die Datei mal angehängt.Danke :)

 

warum nicht Formel? das läuft doch automatisch.
Makro ist die Frage wann soll es passieren? Bei einer Eingabe? Wo?
Falls keine 1000km in Zeile 1 soll nichts passieren.

 

Keine Formel weil der Input jedesmal ein anderer sein wird und ich dann gerne einen automatismus haben möchte. Wäre die Tabelle immer identisch hätte ich das mit Hilfe einer Formel versucht. Das Makro soll ausgelöst werden, sobald ich auf eine Schaltfläche drücke.

Genau Falls der Ausdruck nicht vorkommt soll garnichts passierne.

 

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Ich habe deinen Beitrag sehr wohl komplett gelesen und so wie ich Ihn verstanden habe, entsprechend geantwortet.
okay bye.

 

Moin

G2

Code:

=XVERWEIS(D2;{"R";"L";"D";"U"};{90;90;50;50};0)*ISTZAHL(SUCHEN("1000km";B2))

H2

Code:

==TEXTVERKETTEN(", ";WAHR;"Seite"&SEQUENZ(;2)&"="&WECHSELN(TEXTNACH(TEXTTEILEN(E2;", ");"=");"mm";"")-G2&"mm")

 

Hi,

und erstmal vielen Dank für deinen Input. Mit der Formel für G2 komme ich soweit zurecht und kann ich auch nachvollziehen. Bei der Formel für H2 allerdings steh ich total auf dem Schlauch. Abgesehen davon erschein die Fehlermeldung "#Name?" wenn ich die Formel so wie Sie dort steht in die Zelle H2 einfüge.
liebe grüße.

 

Dann hast du wohl nicht die selbe Excel-Version wie ich und eine oder mehrere Funktionen stehen dir nicht zur Verfügung.