Werte in Zelle kopieren
06.12.2016 08:59:20
Domi_needs_help
ich bräuchte wieder einmal eure Unterstützung,
Habe hier im Forum vor einigen Tage eine Frage gestellt wie man in einer Tabelle bei eingabe _
eines wertes in Spalte 3 in eine andere Spalte hüpfen kann. Daraufhin bekamm ich diesen Code ( _ nun von mir etwas verändert):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(3)) Is Nothing Then
Select Case Target
Case "G038": Target.Offset(, 5).Select
Case "3777": Target.Offset(, 6).Select
Case "3731": Target.Offset(, 7).Select
End Select
End If
End Sub
Dies wurde mir perfekt beantwortet und funktioniert auch einwandfrei. Danke nochmals.
Nun ist es so, dass nicht mehr der sprung in eine Spalte gewünscht ist sondern es soll ein Wert der in Spalte 5 steht in die jeweils richtige spalte kopiert werden.
z.B. Bei eingabe von G038 im Feld 3C soll der Wert von 3E in 3H geschrieben werden.
Ist dies mit einer kleinen Änderung der Cases möglich oder benötige ich hier einen komplett neuen Ansatz?
Dankeschön im Vorraus :)
Noch einen schönen Tag und freundliche Grüße
Dominik