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
|