Dim iRow as integer
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")
For iRow = 23 To 25
.Cells(iRow, 39).Value = rm.txtferngeringrm.Value
.Cells(iRow, 40).Value = rm.txtregiogeringrm.Value
.Cells(iRow, 41).Value = rm.txtexterngeringrm.Value
.Cells(iRow, 42).Value = rm.txtlieferantengeringrm.Value
Next
End With
End If