Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Wenn bestimmte Zahl eingegeben dann bestimmte Ausgabe |
19.09.2013 17:55:03 |
Jerry |
|
|
|
20.09.2013 07:00:06 |
Gast30349 |
|
|
|
23.09.2013 09:15:13 |
Gast72469 |
|
|
|
23.09.2013 11:43:00 |
Gast71460 |
|
|
Von:
Jerry |
Datum:
19.09.2013 17:55:03 |
Views:
1355 |
Rating:
|
Antwort:
|
Thema:
VBA Wenn bestimmte Zahl eingegeben dann bestimmte Ausgabe |
Moin liebe Forumer/innen,
ich hätte da folgende Frage kann man diese Aufgabe eleganter lösen da ich diese VBA bis in Zeile C100 benötige?
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C14").Value = "112" Then Range("C14") = "DE-112"
If Range("C14").Value = "223" Then Range("C14") = "DE-223"
If Range("C14").Value = "244" Then Range("C14") = "DE-244"
If Range("C14").Value = "391" Then Range("C14") = "DE-391"
If Range("C14").Value = "471" Then Range("C14") = "DE-471"
If Range("C14").Value = "532" Then Range("C14") = "DE-532"
If Range("C14").Value = "627" Then Range("C14") = "DE-627"
If Range("C14").Value = "732" Then Range("C14") = "DE-732"
If Range("C14").Value = "885" Then Range("C14") = "DE-885"
If Range("C15").Value = "112" Then Range("C15") = "DE-112"
If Range("C14").Value = "223" Then Range("C15") = "DE-223"
If Range("C15").Value = "244" Then Range("C15") = "DE-244"
If Range("C15").Value = "391" Then Range("C15") = "DE-391"
If Range("C15").Value = "471" Then Range("C15") = "DE-471"
If Range("C15").Value = "532" Then Range("C15") = "DE-532"
If Range("C15").Value = "627" Then Range("C15") = "DE-627"
If Range("C15").Value = "732" Then Range("C15") = "DE-732"
If Range("C15").Value = "885" Then Range("C15") = "DE-885"
End Sub
im Moment sieht das ganze so aus allerdings ist es ja zu mühsam das jetzt bis C100 durchzuführen für mehrere Tabellen, habt Ihr eine elegante Lösung für diese VBA?
Vielen Dank schon mal im voraus
P.S. bin absoluter VBA Neuling
|
- 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
|
VBA Wenn bestimmte Zahl eingegeben dann bestimmte Ausgabe |
19.09.2013 17:55:03 |
Jerry |
|
|
|
20.09.2013 07:00:06 |
Gast30349 |
|
|
|
23.09.2013 09:15:13 |
Gast72469 |
|
|
|
23.09.2013 11:43:00 |
Gast71460 |
|
|