|
Hallo Leute,
wie kann ich den unten stehenden Code kürzer schreiben, bzw. schöner?
If werk.cmbwerk.Text = "Wittenberge" And werk.cmbmonat.Text = "Dezember" Then
With ActiveWorkbook.Worksheets("Dateneingabe")
.Range("AM21").Value = rm.txtrisikengesamtp.Value
.Range("AN21").Value = rm.txtrisikengesamtr.Value
.Range("AO21").Value = rm.txtrisikengesamtk.Value
.Range("AP21").Value = rm.txtprojektev.Value
.Range("AQ21").Value = rm.txtrevisionenv.Value
.Range("AR21").Value = rm.txtkomponentenv.Value
End With
With ActiveWorkbook.Worksheets("Dateneingabe Risiken")
.Range("AU39").Value = rm.txtferngeringrm.Value
.Range("AU40").Value = rm.txtregiogeringrm.Value
.Range("AU41").Value = rm.txtexterngeringrm.Value
.Range("AU42").Value = rm.txtlieferantengeringrm.Value
.Range("AV39").Value = rm.txtfernmittelrm.Value
.Range("AV40").Value = rm.txtregiomittelrm.Value
.Range("AV41").Value = rm.txtexternmittelrm.Value
.Range("AV42").Value = rm.txtlieferantenmittelrm.Value
.Range("AW39").Value = rm.txtfernhochrm.Value
.Range("AW40").Value = rm.txtregiohochrm.Value
.Range("AW41").Value = rm.txtexternhochrm.Value
.Range("AW42").Value = rm.txtlieferantenhochrm.Value
End With
End If
Vielen Dank im Voraus:)
|