ich habe eine gut funktionierende abfrage fuer die festezelladresse.
nun, ich will die werte von .[J2] in die [B3] copieren der naechste wert muss aber in die [B4] copiert werden, der uebernaechste in die [B5], dann [B6] und [B7] also jeden tag wird ein neuer wert in spalte b copiert.in den anderen spalten
findet das gleiche statt.
wie kann ich die aufgabe realisieren bzw. was muss ich in dem code aendern.
danke im voraus marc :- }}
Option Explicit
Sub ValueForDiaGesamt()
With Worksheets("Aus.Gr")
.Activate
With Sheets("dia.Gesamt")
If [C9] = "10" Then .[B3] = Sheets(2).[J2]
If [C9] = "20" Then .[C3] = Sheets(2).[J2]
If [C9] = "149" Then .[D3] = Sheets(2).[J2]
If [C9] = "180" Then .[E3] = Sheets(2).[J2]
If [C9] = "184" Then .[F3] = Sheets(2).[J2]
If [C9] = "190" Then .[G3] = Sheets(2).[J2]
If [C9] = "191" Then .[H3] = Sheets(2).[J2]
If [C9] = "192" Then .[I3] = Sheets(2).[J2]
If [C9] = "193" Then .[J3] = Sheets(2).[J2]
If [C9] = "196" Then .[K3] = Sheets(2).[J2]
If [C9] = "197" Then .[L3] = Sheets(2).[J2]
If [C9] = "205" Then .[M3] = Sheets(2).[J2]
If [C9] = "212" Then .[N3] = Sheets(2).[J2]
If [C9] = "213" Then .[O3] = Sheets(2).[J2]
If [C9] = "230" Then .[P3] = Sheets(2).[J2]
If [C9] = "245" Then .[Q3] = Sheets(2).[J2]
If [C9] = "270" Then .[R3] = Sheets(2).[J2]
If [C9] = "347" Then .[S3] = Sheets(2).[J2]
If [C9] = "350" Then .[T3] = Sheets(2).[J2]
End With
End With
End Sub