Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Wenn bestimmte Zahl eingegeben dann bestimmte Ausgabe
 19.09.2013 17:55:03 Jerry
NotSolved
20.09.2013 07:00:06 Gast30349
NotSolved
23.09.2013 09:15:13 Gast72469
NotSolved
23.09.2013 11:43:00 Gast71460
NotSolved

Ansicht des Beitrags:
Von:
Jerry		 Datum:
19.09.2013 17:55:03		 Views:
1337		 Rating:
     
Antwort:
  Ja
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

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
Rot VBA Wenn bestimmte Zahl eingegeben dann bestimmte Ausgabe
 19.09.2013 17:55:03 Jerry
NotSolved
20.09.2013 07:00:06 Gast30349
NotSolved
23.09.2013 09:15:13 Gast72469
NotSolved
23.09.2013 11:43:00 Gast71460
NotSolved